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:nstallation guide 

1** yM^^Tng Instructions . 

To. unpack base unit (the big box), refer to Drawing #G41C--A. 

1. Open top of largest box. 

2. Turn box upside down by carefully "rolling" it over. 

3. Open inner box {the side which is now up). Note that the 
feet are up. 

4. "Roll" box over and lift it off. 
1 • 2 j^ll Installation . 

Be certain that the PERQ is NOT connected to a power source. 

1. Position the PERQ in its desired location. Allow at least 
six inches between the PERQ and an obstruction such as a wall. 
The clearance is required to provide access to the screws securing 
the back or side covers. 

2- Lower the four level ers 3/4 inch to permit airflow beneath the 
machine. Adjust the 1 ever! ers to compensate for uneven floors 
and make the PERQ stable. 

3. Using a #2 Phillips screwdriver, remove the four (4) front 
cover screws. See drawing #0133-A. Remove the front cover. 

4. Similarly, remove the rear cover. See drawing #Q134-A. 

5. When facing the front of the PERQ, the harddisk drive is located 
on the left hand side. Remove the two (2) screws securing the 
left side cover. Remove the left side cover. See drawing 
#0I35-A. 

6. Using the supplied Allen Wrench, remove disk shipping screw. 
See drawing #0137-8. Do not lose the shipping screw because it 
must be reinstalled before you move or ship the PERQ. 

7. Remove shipping disk from floppy drive. 

■8. Plug in A. C. connector for disk. See Drawing #0137-8. 

CAUTION - DURING THE FOLLOWING STEPS, HAZARDOUS VOLTAGES ARE PRESENT 
IN THE CHASSIS. 

9, Plug line cord into appropriate power sources. See label on PERQ 
above line connceccor for power requirements. 
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10. Pull front and rear "cheat" switches. Operate "On/Off" switch 
on front of PERQ. System will turn on. Wait 30 seconds. 

11. Remove disk head locking clip ("A" Clip) by pulling in direction 
Oi arrow. See Drawing ttO 137— B . Do not icse tins iock because 
it must be reinstalled before you moye or ship the PERQ. 

12. Operate "On/Off" switch to turn PERQ off. 

13. Remove line cord from wall outlet and then from PERQ. 

14. Re-install left side cover. (Note labels on cover.) 

15. Re-install rear and front covers. 

16. Plug in keyboard, display, and tablet (bit pad) to rear of 
PERQ. Connect the tablet cable between plug J7(GPIB), at the 
rear of the PERQ, and the back of the tablet. DO MOT USE 
PLUB J2 (tablet). Tighten the thumb screws on both plugs. 
Connect the power supply cable to the back of the tablet, then 
plug the power supply into the wall outlet. 

17. Plug line cord into appropriate power source. See label on 
PERQ above line connector for power requirements. 

NOTE: Shugart documentation regarding SA4000 (rigid disk) is enclosed 
for reference. 

The Federal Communications Commission of the United States Government 
has published regulations which govern the allowable limits of 
emanation of radio frequency energy of computing devices and associated 
peripherals. 

Those regulations are concerned with interference to radio communication, 
such as radio and TV. 

The regulations require equipment for end use in the United States 
to be labeled and to be accompanied by the notice appearing in this 
instruction manual. 

Warning: This equipment generates, uses and can radiate 
radio frequency energy and if not installed and used in 
accordance with the instructions manual, may cause interference 
to radio communications. As temporarily permitted by regulation 
it has not been tested for compliance with the limits for Class A 
computing devices pursuant to Subpart J of Part 15 of FCC Rules, 
which are designed to provide reasonable protection against such 
interference. Operation of this equipment in a residential 
area is likely to cause interference In which case the user at 
his own expense will be required to take whatever measures 
may be required to correct the interference. 

1 . 3 Reshipment Proced ures 

This section details the procedures ic follow if you must move or 



ship your PERQ, Sectins 1.3.1 and 1.3.2 describe the packing procedures. 

1. Turn power off and disconnect all external sub-assemblies. 

2. Using a #2 Phillips screwdriver, remove the four (4) front 
cover screws. See drawing #0133-A. Remove the front cover. 

3. Similarly, remove the rear cover. See drawing #0134-A. 

4. Remove the two (2) screws securing the left hand side cover 
(left side when facing the front of PERQ) and remove the left 
side cover. 

5. Reconnect the monitor and keyboard, pull both "pull to cheat" 
switches, and power on the macine. 

6. Boot the PERQ and Log in. 

7. Type BYE WAIT. This moves the disk heads to the center of the 
disk. 

8. Insert disk head locking clip ("A" clip). Push the "A" clip 
to install. Do NOT install the "A" clip unless the disk is 
spinning. 

9. Turn power off. 

10. Disconnect the monitor and keyboard. Disconnect the AC power 
plug from the hard disk (see drawing #0137-B). 

11. When the disk has stopped spinning, turn the motor and align the 
hole for shipping screw. Insert shipping screw using Allen Wrench. 

12. Replace left side cover. Replace front and rear covers. 
1.3.1 Packing Procedures 

1. Take the two longest pieces of white Micro-foam and lay them on 
the floor in the shape of a cross (+). Place the PERQ on top 
of the pieces and wrap the pieces over the PERQ. 

2. Slide the box about the size of the PERQ over the foam wrapped 
machine. 

3. Very carefully, turn the box over so that the open end of. the box 

is up. Lower the four (4) level ers on the botoom of the PERQ. Tape 
the box shut. 

4. Place the corner-shapes on the corners of the boxed PERQ. 

b. Carefully, slide the large outer box over the boxed PERQ and turn 
the large outer box over so that the open end is up. Tape the 
outer box shut. 



1.3.2 Monitor and Sub-assemblies Packin g 

1. Wrap the monitor with white Micro-foam. Find a box about the size 
of the monitor and slide it over the monitor. Tape the box shut. 

2. Place white and green plastic corners on the monitor box. Place 
a larger outer box over the boxed monitor and tape shut. 

3. Find the box the size of the keyboard. Insert keyboard, close, 
and tape shut. 

4. Insert the bit pad, bit pad magnet, and manual into the bit pad 
box and tape shut. 

o. Box the cables and power cords and tape shut. 

6. Take all boxes and place them in the larger outer box. Pack with foam 
to take up extra space. Close and tape. 

7. After packing and sealing the boxes, they should be palletized to . 
eliminate shipping damage. 
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SA4000 UNPACKAGING INSTRUCTIONS 



CAUTION: These directions must be carefuily followed to insure the correct 
operation of the drive. 

1. The SPINDLE LOCKING SCREWmqst be removed before applying AC power to 
the drive motor. <\ \ X- /! \\ //~^N 

IMPORTANT: Retain locking sc/ew for re-installation pncfrfo^transporting drive. 

\ } // V\ S '^'' • 

2. CAUTION: ROTATE SPINDLEfN DIRECTION OF ARROWS ONLY. 

3. Remove the ACTUATOR J.OCK in the following sequence/ 

11 M * 

1 . Energize AC power J J <"*^\ a \ 

2. Withdraw theJo^k_Jrbm the steppk s a^erjjo(V. v> 



}wing sequence: 

imbjy, \> 



/■\ 



>^/ 



..IMPORTANT: Retain the lock for re-instailatibn prior to transporting the drive. 

/ <. , It is recommended the heads be moved to trie extreme inside 

\ V/v tracks prior to re- ins tailing the- actuator lock. 

CAUTION: It is recommended that the AC power be energized before remov- 
\ x ingqr installing the actuator lock. Failure to do this may result in 

-media/damage. <* \ > " 



4. OPTION — 
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"o isolate-AC motor - remove GNp-strap. 
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Preface 



This manual provides an introduction to the PERQ. The manual 
explains general concepts of the PERQ system; you should be familar 



with the concepts before using the PERQ. 
information to boot the PERQ system. 



This manual also supplies 
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2. Introduction. 

PERQ is Three Rivers Computer Corporation's personal computer which 
provides an integrated computing system for a single user. All 
PERQs come with the following hardware features: 

a) 16-bit micro programmed processor 

b) High-resolution graphics using a 1024 X 768 bit mapped raster 
display 

c) Standard keyboard with special function keys 

d) 12-megabyte Winchester technology disk drive 

e) RS232 & GPIB I/O interfaces 

f) 512k bytes of main memory 

g) Pointing tablet 
h) Speech output 

Optional features are: 

a) 24 megabyte disk 

b) 4k X 48-bit writable control store 

c) 1 megabyte of main memory 

d) 8 inch floppy disk drive 

PERQ provides a large, 32-bit, segmented virtual address sp'ace. 
Virtual addresses are mapped into a 20-bit physical address. 

The supplied software provides a functional program development 
environment. The system includes a text editor, a Pascal compiler, 
interactive stack dump for debugging, file management utilities, and 
support for micro program development. 
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3. Turning the PERQ on and off. 

Refer to the Installation Guide before using your PERQ. 

The PERQ's power switch is located on the front panel in the groove 
below the floppy disk drive. The switch is right of center and is 
labeled OFF/ON. Pushing the switch to the right powers on the PERQ. 
The fans start; if you do not hear them check to see that the 
machine is plugged in. When the PERQ is plugged in, the small neon 
light in the lower right hand side of the back glows. If the light 
is out, check the electrical outlet. If there is power at the 
outlet or the light is glowing and you still do not hear the fans 
then call your local service representative. 

The PERQ takes about two minutes to boot after it is turned on 
allowing the disk to spin up to speed. At this point the Diagnostic 
Display (DDS) reads 999. Refer to Section 12 for boot procedures 
and information on the DDS. 



If the machine has not booted after two or three minutes, try 
pressing the Boot button on the back of the keyboard. If this does 
not cause the machine to boot, call your local service represent- 
ative. 

After the PERQ boots, you will be asked to enter the time of day. 
The time and date is given in the form: 

DD MMM YY HH:MM:SS 

The time notation uses a 24-hour clock. If you were logging in on 
the 27th of March, 1982 at 2:30 in the afternoon you'd type 

27 mar 82 14:30:00 

The seconds are optional and the spaces in the date can be replaced 
by hyphens (27-Mar-82) . There is usually a default date and time 
given at login. If the date is accurate, enter only the time or, 
type a carriage return to confirm both date and time. If it is net 
accurate or if there is no default, enter the correct date and time. 

Next, you will be asked to login. You must supply a user name and 
password to be allowed access to the machine. After the operating 
system has been loaded onto a machine, the names defined are "Guest" 
and "" (the empty string; just press the Carriage Return key). See 
11 UserControl" in the Utility Programs Manual for instructions on how 
to add other user names. After you have successfully logged in, the 
command interpreter, Shell, will be loaded and you will be able to 
execute commands. 

Before turning the PERQ off, you should always log off using the Bye 
program. If ycu just power down, some temporary files on the disk 
will not be cleaned up. Type: 

BYE OFF 
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to log off and turn the power off for the machine automatically. If 
this is not possible, you can always turn the machine off by moving 
the power switch to the left. See "BYE" in the Utility Programs 
Manual . 
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4. Control Characters and Special Keys. 

The PERQ operating system recognizes a number of special control 
characters. These control characters perform simple input line 
editing and program control. 

The valid control characters are: 

BACK SPACE or "H - erases the last character typed by the 
user . 

"W or "BACK C'-ACE - erases the last word typed by the 
user . 

OOPS or "U - erases the last line typed by the user. 

"C - typed once causes a current program to abort the next 

time that it asks the operating system for input. 

A C - typed twice causes the current program to abort . 
immediately. However, this does not cause user command 
files to exit; see "SHIFT C. 

"S ~ causes program output to the screen to be suspended. 

"Q - allows output to the screen to resume after a "S. 

"SHIFT C - causes a dump of the runtime stack and an 

immediate return to the Shell. If a command file was 

being executed, it is aborted and control is returned to 
the keyboard . 

"SHIFT D - causes a dump of the runtime stack to be 
printed and the preliminary debugger (called Scrounge) can 
then be entered. If the debugger is not entered, the 
original program will resume execution. If the debugger 
is used , the user can request that the program be resumed 
after investigating the state. For a more complete 
description of the debugger, see the "PERQ Utility Pro- 
grams Manual ." 

HELP - pressing the HELP key by itself displays a general 
help message. If you press the key after typing a 
command, the display contains specific help information 
for the command . 
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5. The Command Interpreter, The Shell. 

The command interpreter for the PERQ operating system runs as a 
separate user program. It is possible for the user to replace the 
command interpreter with his own (see the section on "Login" in the 
PERQ Utility Programs Manual) . The name of the command interpreter 
supplied with the system is the Shell. 

The Shell takes commands from the user terminal or from a user 
command file and executes them. It does not distinguish between 
upper and lower case letters; you can use whichever you prefer. The 
commands in a user command file look exactly as if they were typed 
at the terminal. However, the cursor is a lighter shade so that you 
can distinguish command file execution from a typed command. The 
PERQ Utilities Programs Manual describes user command files and how 
to use them. 

The general form of a Shell command line is a command or program 
name, followed by any number of optional parameters, followed by any 
number of optional switches. Some of the switches take parameters. 
For example: 

Compile SourceProgram/Symbols=32 

compiles a Pascal program in file SourceProgram using 32 symbol 
table blocks. All switches begin with a "/". 

An example of a program that takes a number of parameters on the 
command line is the Copy program. The form is: 

Copy SourceFile~DestinationFile 

An example of a program that takes multiple switches is the Linker. 
k Linker command line might be: 

Link Source Program/ Verbose /Stack Size =1024 

When you supply a command line to the Shell, it extracts the first 
symbol on the line and does a unique substring lookup of the symbol 
against a small set of commonly used commands. You can get a list 
of these commands by typing "?" or the HELP key. If a match is 
f ound , the Shell executes the command. If no match is found, the 
Shell assumes the symbol is the name of an executable runfile (the 
output of the Linker), and attempts to execute it. Commands can 
also be invoked by means of a menu if you have booted from the 
harddisk. See the section on "PopUp Menus" below. 



6 - 



PERQ Introductory User Manual - Commands and Arguments 04 Feb 82 
6* Specifying Commands and Arguments. 

The Shell uses a default file name as the parameter to certain 
programs if no parameter is provided. This file name is the last 
file name typed to* one of these programs. The Editor, Compiler, and 
Linker use and set the default file name. The TypeFile program uses 
the default file name but does not set it. The PERQ Utility 
Programs Manual provides more details on these programs. 

Other programs require that you specify arguments. If a command 
requires an input and an output argument, you can specify the 
arguments as either 

INPUT-OUTPUT 

or 

INPUT OUTPUT 

You can separate the input and output arguments with multiple 
spaces; only the initial space delimiter is relevant. 

However, if a command accepts multiple input or output arguments, 
you must separate like arguments with commas (,) and distinguish 
input from output with the tilda character (~)'. For example: 

inputl ,input2, . . .inputn "' output 1 .output2, .. .outputn 

If a command accepts multiple input arguments and no output 
arguments, you must separate the arguments with a comma (,). 

Switches modify the action of the command and therefore must follow 
the command specification. An exception is the Help switch (either 
type /HELP or press the HELP key); when specified before the 
command, the Help switch supplies general information and when 
specified after a command, the Help switch provides specific 
information. Switches always start with a slash (/) and are 
generally optional. If a switch accepts a parameter, specify the 
parameter after the switch, but preceded by an equal sign (=) . For 
example: 

/switchr parameter 

The effect of a switch is global; regardless of where the switch 
appears on the command line, it has the same effect. A switch 
applies to every argument. If a command accepts multiple input or 
output arguments, no switch applies to one and not another argument ; 
The PERQ Utilities Programs Manual provides details on the general 
syntax . 

For most programs on the PERQ, arguments that have defaults will 
print the* default answer in square brackets ("[]"). This answer can 
be chosen by simply typing a carriage return (thus providing ^ an 
omrAi-v aranniPnM . To supolv a different value, type the value 
followed by a carriage return. For example, if: 
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Delete File Name. Seg [No]: 

is the prompt for an argument, a carriage return means no. Of 
course, you could type "yes" or "no" as the argument. Most programs 
do not distinguish between upper and lower case for arguments or 
commands. In addition, you can abbreviate a command to the number 
of letters unique to other command names. However, this does not 
work for filenames. 

The user's profile file specifies the set of commands recognized by 
the Shell. You can use a copy of the file DEFAULT/PROFILE 
initially. Later, you may wish to define commands of your own. 
Refer to the section on "Profiles" below. 
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?. The Pointing Device. 



PERQs are supplied with a bit pad and pen or puck. In the normal 
mode, the cursor on the screen follows the movement of the pen. If 
the pen is in the upper-left corner of the tablet, the cursor will 
be in the upper-left corner of the screen. The PERQ can read the 
pen position when the pen is near the tablet surface. If you press 
down on the pen, a small switch closes. This is called a "press" of 
the pen. The editor and some other programs use the pen for 
pointing and drawing. 



As an option, the pen can be exchanged ' for a four-button puck. The 
puck rests on the tablet and uses a circle with cross hairs for 
positioning. The four buttons are arranged in a diamond as shown 



all cases, a press of the top (yellow) button on the puck 



below. In 

functions exactly like the press on the pen. For programs which do 
not distinguish between the buttons, the other buttons also act like 
a press. The editor, however, assigns different functions to the 
other three buttons (see the "Editor User's Guide"). 
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8. PopUp Menus. 

The Shell and the FLOPPY and FTP utility programs allow their 
arguments to be entered by means of menus. (This only works, 
however, if you have booted from the harddisk.) The menu holds a 
list of all legal commands or arguments, and the pointing tablet can 
be used to specify the selection. Using a menu is sometimes more 
convenient than typing out the name of the command or argument 
desired. PopUp menus appear when requested. When the selection is 
made, the menu disappears and restores the screen space that was 
covered by the menu. Using PopUp menus, therefore, does not require 
sacrificing any screen area. 

For the Shell, you can invoke a menu whenever the prompt (">:") is 
displayed and no characters have been typed. (The prompt is 
actually a dark grey, right pointing triangle.) To invoke a PopUp 
menu, simply press the pen or puck. The menu appears at the current 
cursor position. The cursor can then be moved up or down inside the 
menu to select the desired command. The selected command is 
highlighted by reverse video. A press over the selected command 
causes it to be invoked just as if the user had typed the command on 
the keyboard. 

If the menu is not large enough to hold all the commands, a 
scrolling mechanism is provided. When scrolling is necessary, a 
"gauge" is displayed in a black border at the bottom left of the 
menu. When you move the cursor over this area, the cursor changes 
to a scroll. A press here allows scrolling. Moving the cursor to 
the right while pressing causes the menu text to scroll up and 
moving the cursor to" the left while pressing causes the text to 
scroll down. The further the cursor is moved from the original 
press position, the faster the text scrolls. A line in the gauge 
shows how fast the menu is scrolling. Of course, you cannot scroll 
past either end of the menu. (Each end is signified by a row of 
"""). Releasing the button causes scrolling to stop. 

If you press in an illegal part of the menu, or if you try to invoke 
a menu and have typed some text, the PERQ beeps. If a menu is 
displayed and you press outside of the menu, the menu disappears, 
causing no side effects. In addition, if you type ~C or "Shift-C 
while a menu is displayed, the menu disappears. 
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9. The "Lights". 

The PERQ does not have a front panel full of lights like many 
computers. To show the occurrence of certain long operations, the 
PERQ simulates these lights by inverting small squares on the top of 
the PERQ screen. If the standard system window is displayed ," the 
lights appear inside the title line. 

Currently, the PERQ operating system uses three lights. The 
leftmost is used to show when the PERQ is doing a disk or floppy 
recalibration . This is done when the microcode is confused about 
where the heads are. Opening the floppy door during a disk 
operation usually causes this to happen. The light appears about 
5/8 inches from the left margin. 

The next light is used when the file system is attempting to fix up 
a file at run-time. This is needed occasionally when a file system 
operation has not completed normally. This light appears about 
1-1/2 inches from the left margin. 

The last light defined by the operating system is used for swapping. 
While a swapping operation (swap in or swap out) is in progress, 
this light is "lit." The swapping light appears about 2-1/4 inches 
from the left margin. 

The Pascal compiler uses an additional light to indicate that the 
compiler is swapping its symbol table blocks between memory and the 
disk. (The compiler swaps symbol table blocks more frequently in 
systems with 256k bytes of main memory than in systems with 512k 
bytes or 1024k byr.es of main memory. Therefore, the light is lit 
more often on minimum memory systems.) The compiler symbol table 
block swap light appears about 3 inches from the left margin. 
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10. Specifying a Filename. 

The PERQ file system is described in detail in the PERQ File System 
Utilities Manual. This is a brief overview, a short introduction to 
path and filenames, a description of the various ways to specify a 
filename, and an explanation of the wildcard convention. 

Overview of the PERQ File System 

The PERQ file system has a hierarchical structure. This 
is reflected in the syntax of filenames. Files are stored 
on devices, which are divided into partitions. Each 
partition contains a number of files and directories; each 
directory may contain other directories and files. 

Introduction to Path and File Names 



The route that is traveled to reach a filename is called a 
PATH. A full path name specifies device, partition, 
directories, and filename, in that order. The syntax of a 
path name is: 

device :partition>[directory>] filename 

The brackets surrounding the "directory" part indicate 
that there may be zero to nine occurences of ">directory" . 
Note that if you specify a directory, the brackets are NOT 
part of the syntax. To specify the current directory, or 
one of its subdirectories, you can omit the :partition> 
and the directory> syntax elements (see the description of 
the Path command in the PERQ Utilities Programs Manual) . 



1 * Device names are usually assigned by the user. 
Examples of devices include floppy and hard disk. The 
syntax used to denote a device name is: 

device : 

If you omit the device name, the system assumes the name 
of the device you booted from. 

Each PERQ is given a name, which is usually the device 
name of the hard disk. 

A device is accessable when it is mounted . See the 
description of "Mount" in the PERQ Utilities Programs 
Manual . 

2. Partitions are set and named at device initialization 
time. You can modify partitions using the Partition 
program, described in the PERQ Utilities Programs Manual. 
Each device is divided into a fixed number of partitions; 
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the recommended size for a partition is 10,080 or fewer 
256-word blocks. Files must fit entirely within a single 
partition as they cannot cross partition boundaries. 
Generally there are three partitions on a 12-megabyte disk 
and five on a 24-megabyte disk. Examples of partition 
names are BOOT and USER. 

3- Directories are easy to create, destroy, rename, and 
move around. There can be multiple directories in a 
partition. These are denoted by the symbol > and can take 
names of up to 25 characters. There can be up to 9 
directories listed in a full path name. The symbol: 



is a convenient way of referring to a parent node in a 
tree. It goes up one node. An example of its use is: 

SYS:BOOT>NEW>..>filename 

This will look up filename in SYS:B00T, rather than in 
SYS:B00T>NEW>. The symbol 



refers to the current directory, 

**• Filename is the last thing specified in a file 
specification* A filename can have up to 25 characters. 

The. names of all of the directories and the filename 
cannot exceed 80 characters. You can include most special 
characters in a filename by surrounding the special 
characters with a single quote ( ? )» For example, you 
could- include the asterisk (*) in a filename by specifying 
f *'. Note that you cannot include the special and control 
characters described in section 4. 

When you boot, the system takes as default device and 
partition the device and partition that you booted from. 
For example, the system might come up with a default of: 

SYS:B00T> 

Ways to Specify a Filename 

1. You can specify a full path name: 

device : parti tion> [dir ec tor y> ] filename 

the brackets, which are no", part of the syntax, 

indicate that you can list up to nine directories. 

This is useful if you want to access a file on a 

different device from the one you're using. 

2. You can use the default device that was deter- 
mined at boot time: 
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: par tition>[directory>] filename 

Using this syntax enables you to look for a file in a 
different partition. 

3. You can use the default device and partition that 
were set at boot time: 

>[directory>] filename 

The search then starts at the first directory speci- 
fied. 

4. You can just type: 
filename 

and the search begins at the current directory (which 
may be set by you ? using Shell's PATH command). This 
can involve any device, any partition, and any 
directory in that partition. 

Setting the default path doesn't affect the default 
device and partition used in forms 1, 2, and 3- 

Along with the concept of a current directory, the 
file system provides a search list. This gives the 
user the ability to specify a set of directories to 
be searched, in a specific order, when a filename is 
specified. Refer to the SetSearch command descrip- 
tion in the PERQ Utilities Programs Manual. 

Wildcard Convention 

A number of PERQ programs use a wildcard convention when 
looking up files. The wild cards are as follows: 

* matches or more characters. 
& matches 1 or more characters. 

# matches exactly 1 character. 
f matches any digit. 

♦A or *a matches any alphabetic. 
'§ matches any non-alphanumeric. 
T * matches *. Other wild cards can be quoted also. 

There can be any number of wildcards in file specifica- 
tions to programs that handle this convention. Examples 
of wildcard usage are: 

Dir *.Pas 

Dir &Boot* 

The first command gives a directory of all files with a 
.pas extension. The second command gives a directory of 
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all files that have one or more characters followed by the 
characters "boot 7 ', followed by zero or more characters. 
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11. Default File Extensions. 

An extension is a conventional sequence of characters that appears 
at the end of a filename. In the PERQ operating system there is 
nothing special about extensions. However, there are certain 
conventions that are used in the system. An extension is found by 
finding the last "." in the filename and taking the following 
symbols. Backup files conventionally have a "$" as the last 
character of their last extension; they take the form Name.Ext$. 
Following is a list of the standard extensions and how they are 
used . 

.PAS - Pascal source files usually have this extension. 

.SEG - The Pascal compiler produces a .SEG file when it 
compiles a .PAS file. .SEG files are used as input to the 
Linker and contain the code that will be executed when the 
program is run. 

.RUN - Files produced by the Linker have this extension. 

.MICRO - PERQ microcode files have the extension .MICRO. 
They can be used as input to the micro assembler, PRQMIC. 

.BIN - The runnable version of PERQ microcode is contained 
in .BIN files. These files are produced by the micro 
placer PRQPlace. 

.REL, .RSYM, .INT - These three file types are temporary 
files that are produced by the micro assembler and placer. 
They can be deleted after a .BIN file has been created. 

.DFS - These files are used to communicate definitions 
between programs that may be in different languages, for 
example, between Pascal and microcode. 

.CMD - A number of programs on the PERQ accept commands 
from a file as well as from the keyboard. Files that 
contain the commands usually have this extension. 

. DR - In the PERQ file system directories are files. 
These files appear in a directory listing with the 
extension .DR. 

.KST - Character set definitions are kept in files that 
have the extension .KST. 

.MBOOT, .BOOT - When the PERQ is booted it reads the 
microcode interpreter and Pascal operating system from 
files that have the extension .MBOOT and .BOOT. 

.ANIMATE, .CURSOR - Pictures used by utilities that are 
put into the cursor that follow the pen or puck. 

.INDEX - An index to .HELP files. 
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.DOC - Formatted documentation has this extension. 

•HELP — Files containing nexp about a subsystem use tnis 
extension . 
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12. Booting the Machine. 

The PERQ can be booted in one of two ways. First, when the machine 
is powered up it will go through the boot sequence. Second, the 
machine can be booted by pressing the Boot button on the back of the 
keyboard. In either case the same sequence of events happens. 

The boot sequence for PERQ has three steps. As each of these steps 
progresses, the Diagnostic Display, DDS, increments. The DDS is a 
three-digit number display. On earlier models of the PERQ, it is 
found on the inside of the machine behind the front cover; on later 
PERQs it's under the keyboard. If any step fails it is possible to 
look at the Diagnostic Display and see where in the boot sequence 
the failure occurred. The Fault Dictionary provides a list of the 
DDS values and explanations of their meanings. 

In the first part of the boot sequence, microcode is executed out of 
a small ROM. This ROM covers the lower 2k of standard control store 
during this part of the boot sequence. This microcode runs a simple 
diagnostic on the processor and memory systems. If there are any 
errors, the microcode halts. The value in DDS gives the reason that 
the machine halted. Once these diagnostics have been passed, the 
microcode makes a decision about which device is to be used for 
booting. Currently, there are three possible boot devices. 

1. The first alternative is booting from the hard disk. 
The microcode tries to boot from the hard disk. 

2. The second choice of boot devices is a floppy disk. 
The microcode checks to see if there is a floppy in the 
floppy drive. If there is a floppy in the drive, PERQ 
will check to see if the floppy is a boot floppy. If so, 
the second part of the boot will be done from the floppy. 

3. , The third possible boot device is another PERQ. The 
microcode determines if there is a PERQ Link Board plugged 
into the I/O Option slot of the machine. If the board is 
plugged in, and there is another PERQ on the other end of 
the link, the booting PERQ will wait for commands from the 
link. 

If all of these fail, then the DDS will contain an 
indication of what the error is. See the Fault Dictionary 
Manual for an explanation of the display number. 

After the boot device has been chosen, the second part of the boot 
sequence can begin. In this part, the PERQ reads 3k words of 
microcode from the selected boot device. This microcode is in two 
sections, a more extensive diagnostic (VFY) and a system boot loader 
(SYSB). VFY attempts to verify that all of the CPU and Memory 
systems are working. Any failures that VFY discloses are displayed 
on the DDS. 

If all went well, the microcode determines what set of interpreter 
microcode and system Pascal code is to be loaded. It does this by 
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checking to see if any key is being held down on the keyboard. If a 
key is being held down, that key specifies which boot is to be done. 
If no key is held down, the default boot will be done . The default 
is the same as holding down "a". Hold the key down until a pattern 
flashes on the screen. Any of the 26 alphabetic keys can be used to 
specify a boot. All lower-case characters cause a boot from the 
hard disk. Upper case characters cause a boot from floppy. If you 
type "Details/Boots" the Details program will provide you with a 
list of all of the valid boot characters. Once a boot has been 
chosen, the microcode interpreter and PERQ operating system are 
loaded into the PERQ. Control Is then transferred to the third 
portion of the boot sequence. 

In the third portion of the boot sequence, the interpreter microcode 
does any initialization that is needed and then starts to execute 
the PERQ operating system. The PERQ operating system also incre- 
ments the DDS. If there were no errors during the boot sequence, 
the machine will be running and the DDS will read 999. 
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13. Run-time Errors. 

When the operating system or a user program - discovers an error 
condition, it raises an "exception" (see the "PERQ Pascal Exten- 
sions" manual for an explanation of exceptions) . If an exception is 
not handled, it is given to the preliminary debugger, called 
Scrounge (see the "PERQ Utility Programs Manual"). First, a dump of 
the user state is produced and then the user is asked if he wants to 
debug. If not, the program is aborted and control returns to the 
Shell and any active command files are terminated. If the user 
decides to debug, the program can be continued after the point where 
the exception was raised. It is usually a bad idea to continue from 
uncaught exceptions. The user can also abort the program and return 
to the Shell. 
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14, profiles. 

Profiles can be used to tailor your PERQ. The profile is a text 
file which contains commands that define characteristics of certain 
utility programs. For example, a profile can direct the Login 
program to initialize the default path and searchlist. Each user of 
the system can have his own profile; the User Control program can 
assign each user a profile file. 

To create a profile file, copy DEFAULT, PROFILE to your own directo- 
ry. For example: 

COPY SYS: BOOT>DEFAULT. PROFILE SYS: USER>MYDIR>MYPROFILE 

Now run User Control and specify SYS:USER>MYDIR>MYPROFILE for the 
profile file. You can then edit the file and establish your 
specific conventions. 

Each entry in the profile file begins with a number sign (#), 

followed by the name of the subsystem. For example, #LOGIN. The 

subsequent lines contain switches or data for the subsystem. The 
general format of a profile file is as follows: 

#progran1 <switches or input for program1> 

<more data for program1> 
#prograrn2 <switches for program2> 

• » • 

For example : 

#Login / Paths Sys : User >Mydir 

/SetSearchrSys : Boot > Library 
/Cursor Functions 7 
#EandomUtility /MaxSize=100 

The format of each list of entries in the profile is defined by the 
utility program that uses the profile. You should read the 
documentation for a particular utility to determine whether it reads 
the profile, and if so, what entries can be included in the profile. 
You may use the profile* in your own programs. See the Profile 
module in the Operating System Interface manual. 

The Shell commands sre specified in the # Shell Commands section of 
the profile. The format for each line in this section is: 

< implemen ta t ionXuse Be faultXsetDefaultX screen si zeXcmdnaine> 

Where <implementation> is the command line Shell issues to execute 
the command. <useDefault> tells whether to use the default file 
name if no file name argument is specified for the command. 
<setDefault> specifies whether to set the default file name if an 
argument is provided. <screensize> can limit the screen to less 
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the command. This name and the rest of the line is printed when a 
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"?" is typed so the additional comments are provided to explain the 
command . 
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This document is not to be reproduced in any form or 
transmitted in whole or in part, without the prior written 
authorization of Three Rivers Computer Corporation. 

The information in this document is subject to change 
without notice and should not be construed as a commitment 
by Three Rivers Computer Corporation. The Company assumes 
no responsibility for any errors that may appear in this 
document. 

Three Rivers Computer Corporation will make every effort to 
keep customers apprised of all documentation changes as 
quickly as possible. The Reader's Comments card is distrib- 
uted with this document to request users' critical evalu- 
ation to assist us in preparing future documentation. 



PERQ is a trademark of Three Rivers Computer Corporation. 
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1. Preface: Notation Conventions. 



This manual describes the PERQ Utility Programs and commands to the 
Shell. The command descriptions are in alphabetical order regard- 
less of whether the command is implemented as a Pascal file or 
through the Shell directly (The Introductory User Manual describes 
the Shell.) 

The descriptions of the commands given in this manual observe the 
following notational conventions: 

o Lowercase text indicates a variable whose actual value is 
determined when the command is entered 

o Square brackets ([]) indicate optional entries in a command 
line. Note that when an option is used, the brackets are 
not part of the syntax. 

o The circumflex (") indicates the control key 

o CR indicates carriage return 

o SHIFT indicates the shift key 



PERQ Utility Programs Manual - Introduction 05 Feb 82 

2. Introduction 



This manual describes the PERQ Utility Programs and explains their 
use. As required, the manual references online or other Three 
Rivers Computer Corporation publications. 

Most of the commands described in this manual are implemented as 
Pascal files, but some are implemented directly by the Shell. 

To issue a command, type a command line in response to the default 
PERQ prompt. You can also use a pop-up menu, as described in the 
PERQ Introductory User Manual, to issue Shell commands. 

If you elect to use a pop-up menu, the menu displays all of the 
valid commands. Use the pointing tablet to specify the selection. 
The FLOPPY and FTP utilities also permit you to enter their 
respective commands through pop-up menus; a press of the pointing 
tablet in response to either of the prompts for these utilities 
displays a menu for the utility commands. 

If you type a command line, the line consists of a command name, 
input and output arguments as needed, optional switches, and a line 
terminator. 

The command name describes the action the system performs or the 
name of the utility that performs the action. When submitting a 
command that is implemented in the Shell, you need not type the 
entire command name; you can abbreviate the command name to the 
number of letters unique to other command names. For example, the 
Mount command can be abbreviated M because it is the only command 
within the Shell beginning with that character. You can abbreviate 
the Path command to Pat, but not Pa because the Shell includes the 
Pause command. The question mark command (see section 3) lists all 
commands. You can modify the list by changing your profile file. 

Input and output arguments further define the command action. The 
input and output arguments are usually file specifiers. Some 
commands require arguments as part of the command line. Other 
commands use the default file as the argument if you do not supply 
one. 

If you neglect to supply a required argument, the utility prompts 
with a few words indicating the general nature of the missing 
argument. For example, the Rename command performs as follows: 

>RENAME 

File to rename: OLDFILE 

Rename OLDFILE to: NEWFILE 

The single line format for the above command is: 

RENAME OLDFILE ~ NEWFILE 
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or 

RENAME OLDFILE NEWFILE 

You can mix formats; the utility prompts for whatever you omit. For 
example: 

RENAME OLDFILE 

Rename OLDFILE to: NEWFILE 

There are no defaults for prompts. You must supply a response. 

However, your response to the prompt can request help (type /HELP or 

press the HELP key). If you request HELP, the utility displays 

specific information and then exits to the Shell. 

If you neglect to supply an argument to a utility that uses the 
default file (for example, the Editor or Linker), the utility 
appends the default file name to your command. For example, if the 
default file is sys :user>myf ile , typing the command: 

EDIT 
is the same as typing: 

Edit sys :user>myf ile 

If a command requires an input and an output argument, you can 
specify the arguments as either 

INPUT-OUTPUT 

or 

INPUT OUTPUT 

You can separate the input and output arguments with multiple 
spaces; only the initial space delimiter is relevant. 

However, if a command accepts multiple input or output arguments, 
you must separate like arguments with commas (,) and distinguish 
input from output with the tilda character (~). For example: 

inputl ,input2, . . .inputn ~ output 1 ,output2, .. .outputn 

If a command accepts multiple input arguments and no output 
arguments, you must separate the arguments with a comma (,). 

Switches modify the action of the command and therefore must follow 
the command specification. An exception is the Help switch (either 
type /HELP or press the HELP key); when specified before the 



command, the Help switch supplies general information and when 
specified after a command, the Help switch provides specific 
information. ■ Switches always start with a slash (/) and are 
generally optional. If a switch accepts a parameter, specify the 
parameter after the switch,' but preceded by an equal sign ( = ) . For 
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example : 

/switch= parameter 

The effect of a switch is global; regardless of where the switch 
appears on the command line, it has the same effect. A switch 
applies to every argument. If a command accepts multiple input or 
output arguments, no switch applies to one and not another argument. 
Some switches are mutually exclusive (for example, /ASK and /NOASK) . 
If you specify a switch that conflicts with a previously specified 
switch, the last occurence has precedence. Likewise, if you change 
parameters by specifying a switch multiple times, only the last 
occurence has an effect. 

All of the commands and utilities' described in this manual accept 
the /HELP switch (either type /HELP or press the HELP key) to 
provide general information. Note that /HELP overrides all other 
switches; the utility displays specific help and then exits. 

Carriage return is the line terminator for all commands. 

Rather than typing a command line to initiate and direct a utility, 
you can use a user command file. A user command file is a text file 
containing a series of commands interpretable by the various 
utilities. 

A user command file is a sequential file containing a list of 
utility specific commands. Rather than typing commonly used command 
sequences, you can type the sequence once and store it in a file. 
The user command file is specified in place of the command line(s) 
normally submitted to the utility. 

To inititate user command files, replace the command line for a 
utility with a file specifier, preceded by an at sign (§). The 
utility requesting input then accesses the specified file and starts 
to read and respond to the commands contained within it. For 
example, to initiate a file of FLOPPY commands, type the following 
in response to the FLOPPY prompt: 

FLOPPY>§FLOPPY.CMD 

The FLOPPY utility accesses the file and then executes the commands 
contained within the file FLOPPY.CMD. The default file type for 
user command files is .CMD. Thus the above command line could also 
be typed as follows: 

.FL0PPY>§FL0PPY 

You can nest user command files by simply specifying @file within 
the user command file. Also, the last line of a user command file 
can invoke another command file and recursive use is permitted. 

To comment a user command file, start the comment line with an 
exclamation mark (!). The exclamation mark can appear anywhere on a 
line in a user command file, but remember that the system ignores 
all cnaracters after. the exclamation mark. - 
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3. Question Hark: ? 



The question mark command lists all the commands implemented in the 
Shell. Additionally, the command provides some information on what 
each command does and how it is called. 
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4. Append 



Append copies one or more files to the end of an existing file. The 
command accepts a list of input files, separated by commas, and puts 
each file on the end of the first. For example, the command line: 

APPEND filel, file2 

puts file2 on to the end of filel. The append operation is 
successive. For example, the command line: 

APPEND filel, file2,file3 

first puts file2 on to the end of filel and then puts file3 on to 
the end of filel . 
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5. Bye 



Bye logs you off the PERQ. Type: 
BYE 

and it types your name, the date, and time of logoff. Login then 
loads and you or some other authorized user can log back on. 

The command 

BYE OFF 

logs you off and turns off your machine. OFF may be disabled on 
your PERQ; if so, call Three Rivers Computer Corporation for details 
on reenabling it. OFF requires some special microcode which should 
be available on your machine. If not, Bye will log off and^reque.st 
that you power down the machine by hand. In this case, "C will 
cause Login to run. 

The command 

BYE WAIT 

logs you off the machine and sends the hard disk heads to the center 
of the disk (the highest disk address). Bye then prints a message 
and waits for power down or ~C. When shipping a PERQ, always type 
BYE WAIT to position the disk heads at the center of the disk. 

The command 

BYE HELP 

describes the options available for Bye. You can specify all of the 
options (OFF, WAIT, and HELP) as switches. 

It is very important to log off using BYE before powering down the 

machine. If you do not, certain temporary disk files will not be 

deleted and they will stay around using disk space until you run the 
Scavenger (see below) . 
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6. Chatter 



Chatter allows a PERQ to act as a terminal, using an RS232 line for 
communication. It is invoked by typing: 

CHATTER 

While in Chatter, some special functions can be invoked by typing 
~R, the function's code letter, and CR. These include 

S to save everything that comes from the 
remote computer in a file. 

T to transmit a file across RS232, as if it were being 
typed at the keyboard. 

C to close a file after doing a Save. 

B to change the RS232 baud rate. The default when 
Chatter comes up is 4800 baud. 

Q to quit Chatter and return to the Shell. This 
doesn't log off or disconnect the remote host. • 

This menu will appear at the very top of your screen to prompt you 
after you've typed "R. 

While in Chatter, if you find that the characters you type are not 

being echoed properly, one of two things may be wrong: the baud rate 

may be inappropriate or your RS232 cable might not be connected 
properly. 

Chatter cannot be used as a half duplex terminal since it does not 
echo characters locally. 
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7. PERQ Pascal Compiler 



The PERQ Pascal compiler translates your Pascal source program into 
a .Seg file that can be linked and run. There are several ways to 
invoke the compiler and several options that you can use with it. 
The command line takes the form: 

.COMPILE [inputfile] [~] [outputfile] [/switch(es) ] 

Examples of legitimate compiler calls include: 

COMPILE Program. pas 

COM ProgramX 

(Note that the .pas extension is. implicit; 
if ProgramX does not exist, the compiler 
looks for ProgramX. PAS. ) 

COMP Program2~Program1 

(creates the output file Programl .SEG) 

(compiles the default file) 

COM /symbol=32 

(compiles the default file with 32 symbol 
table blocks) 

If you want to compile a program immediately after editing it, you 
need not specify its name since the Shell remembers the last file 
edited, compiled, linked, or run. 

Certain switches may be included in the source program text. See 
the PERQ Pascal Extensions Manual for more detailed information on 
switches and other compiler features. 
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8. Copy 



Copy creates a new file identical to the specified source. Its 
command syntax is: 

COPY SourceFile[~]DestinationFile 

Copying works across devices and partitions (see the PERQ Introduc- 
tory User Manual for details on devices and partitions) . You can 
also specify the non-file-structured devices CONSOLE: and RS:. If 
you copy a file to the RS232 interface, by default the interface is 
driven at 9600 baud. To change the baud rate, run the SetBaud 
program (see below). 

The source file for Copy may contain wild cards (for a description 
of the wild cards, see the PERQ Introductory User Manual). If the 
source contains wild cards, the destination must contain the same 
wild cards in the same order. In this case, Copy matches all files 
in the directory with the source pattern. For each match, the part 
of the source file name that matches each wild card replaces the 
corresponding wild card in the destination. As an example, for the 
command : 

COPY foo*.abc# anotherdir>*baz.rmn#z 

the input file "FOOZAP. ABCD" would be copied into a new file named 
"anotherdir>ZAPbaz.rmnDz" . 

If wild cards are used, Copy asks for verification of each file 
copied. This can be disabled with the switch "/NOASK" or enabled 
with "/ASK". The latter is the default. Copy also requests 
confirmation before overwriting an existing file. You can override 
this action with the /N0C0NFIRM switch. (Note that the /N0C0NFIRM 
switch implies the /NOASK switch.) 

Wild cards are not allowed in the directory part of the source file. 
However, Copy uses the search list to try to find the source. Note 
that this is different from Rename and Delete which always look in 
only one directory. 

When the source file name contains no wild cards, the destination 
file name may contain, at most, one occurance of the wild card »*" . 
In this case, the non-directory part of the source replaces the "*" 
in the destination. For example, 

COPY sys :Boot>newOS>myprog .Pas dir3>new.* 

would copy the file "sys : Boot>newOS>myprog . Pas" into a new file 
named "dir3>new.myProg . Pas" . This is most useful when you want to 
copy a file from one directory to another with the same name. For 
example , 

COPY dir 1>prog .Pas * 
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copies prog .pas from the directory "dirl" into the current directo- 
ry. 

If there are no wild cards in the source, an attempt to include in 
the destination name other wild card characters, besides the single 
"*" discussed above, may lead to problems later.' These extra wild 
cards will be treated as simple literal characters. Because a file 
name with wild cards in it is hard to specify, the Copy program 
requires confirmation before creating a file with wild cards in the 
name . 

Copy is a useful command if you'd like to edit your own copy of a 
file without changing the original one. (The Editor provides you 
with the ability to do this too, but copying can give you an 
additional safeguard against unintentional changes to the source.) 

The names of SourceFile and DestinationFile may be identical; 
however if they are identical a new file will not be created. If 
you want two files you should use nonidentical names. 

If the file you are copying to already exists, Copy requests 
confirmation before overwriting it. This can be disabled "by using 
the switch "/NOCONFIRM" or enabled using the switch "/CONFIRM". 
NOCONFIRM also sets NOASK. If an error is discovered and wild cards 
were used, Copy asks the user whether to continue processing the 
rest of the files that match the input. This confirmation is 
required no matter what switches were specified. 

A final switch is "/HELP" which describes the function of Copy and 
the various switches. 
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9. The Preliminary Debugger 



The current operating system includes a simple debugger. When the 
user types "SHIFT-D or an uncaught exception is discovered, a dump 
of the user stack is shown. This has the form: 

Control-shift-D dump 

Deoug at 108 in routine 7 in I0_PRIVA. 

Called from 214 in routine RANDOMWI (8) in WIPEWIN. 

Called from 395 in routine WIPEWIN (0) in WIPEWIN. 

Called from 149 in routine in LOADER. 

Called from 222 in routine 1 in SYSTEM. 

Called from 520 in routine in SYSTEM. 

First, the reason for taking the dump is shown. Next is a trace of 
all the procedures on the stack. Each line shows the locationin 
the code, the routine that location is in, and the module which 
contains that routine. The location is the QCode offset from the 
beginning of the procedure. You can use QDis to try to associate 
this with the corresponding place in the source. When the debugger 
can find the procedure name, it is printed followed by the procedure 
number. At other times, only the routine number will be printed. 
You can count the procedure (and exception and function) headers in 
the module source file to determine which procedure it is. 

When counting procedures, start with one for programs and zero for 
modules. The main body of a program is its procedure zero. 
Exported and forward procedures are counted only once, where the 
name first appears. Internal (nested) procedures are counted 
exactly like other procedures. 

A note about procedure names : These names are always truncated to 
eight characters and converted to all uppercase. To get the names, 
the debugger examines the Seg file for the module. If the Seg file 
found is not the one that was loaded, the procedure names will be 
wrong. The procedure numbers will always be correct, however. For 
the procedure names of system modules, the system run file is 
checked to find the Seg file name. This Seg file is used to get the 
procedure names. If the system run file or the system Seg files are 
not accessible, the debugger will not be able to print the procedure 
names for system routines. 

After the dump is printed, you will be asked if you want to debug. 
(If a dump is printed due to a ~SHIFT-C, no debugging J«rill be 
allowed). If you answer no, the program will be continued if it was 
called from "SHIFT-D, otherwise it will be aborted and control will 
go back to the Shell. If you decide to debug, the debugger will 
print something like: 

Scrounge, V0.10 

Now at routine KEYINTR (7) in I0_PRIVA 

There are 5 local words, argument words, and result words 
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Debug> 

Now you can use the debugger's commands to investigate your program, 
Notice that the debugger goes to more effort to find the procedure 
names than the original dump, so that if a procedure name was not 
printed at first, going into the debugger may get it displayed. 

The debugger does not know the types or sizes of variables, but it 
does know the number of words allocated for locals, arguments and 
results. Note that the compiler may generate temporary variables 
which are included in the local count. 

When a debugger command is invoked which takes an offset, you can 
type a number which is the offset of the word to print. Zero is the 
first word. If you type -1, all the words in the current context 
will be printed. For example, to an "a" command, all the arguments 
will be printed for -1. If you type -2, the debugger will request 
the first and the last offsets to print. In this manner, a range of 
values can be printed. No checking is done to make sure that the 
offsets typed are in range; if a number is out of range, some random 
data will be printed. Data is printed in the form: 

[ 71 ( 5053") = 6 

where 7 is the offset in the current procedure, 5053 is the offset 
from the bottom of the entire stack and 6 is the value in that 
location . 

A n °ke on counting variables : Imagine that your procedure was 
defined with the following variables: 
var a ,b ,c : Integer ; 

d : Char ; 
When a list of variables are defined in the same statement, they are 
allocated in reverse order so the first word is the variable "c" . 
The second word is "b" , the third "a" and the fourth is "d". This 
is true for local and global variables and for records. Note that 
if you had declared the variables as: 
var a: Integer; 

b: Integer; 

c: Integer; 

d : Char ; 
then "a" would be the first word, "b" is the. second one, etc. This 
does not hold for procedure parameters, however, where the variables 
are always stored in exactly the order declared . 

The debugger's commands are: 

? Print a list of all the commands. 

x Set the radix. All integers are normally printed in signed 
decimal. With this command, you can specify any radix from 2 
to 36. If the radix is negative then all output will be 
unsigned. If it is positive then output will be signed. Note 
that this radix is only for output; all input is still in 
signed decimal. 
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> Up level. Move up one level in the stack towards the top of 
the stack. To investigate the variables of a procedure, move 
up or down the stack until that procedure is reached and then 
it can be investigated. 

< Down level. Move down one level towards the bottom of the 
stack. When entering the debugger, the current procedure is 
set at the top so this command has to be used first. 

Dereference. Dereference any pointer in memory. This takes a 
segment number and an offset. For a variable parameter or 
pointer variable, the offset is first and then the segment 
number . 

t Top of Stack. Move to the top of the stack. 

b Bottom of Stack. Move to the bottom of the stack. 

c Current. Shows number of words for arguments, returns and 
locals for the current procedure. 

d Display Stack. This command reprints the original dump. Some 
additional procedure names may be printed. In addition, the 
procedure where you are debugging is marked with "<**>". 

1 Local. Examine the local data. The debugger reprints the 
number of local words. You can type the offset of the word 
you want to see . 

a Argument. Examine the arguments to a procedure or function. 

e Exception. Examine the arguments (parameters) to an excep- 
tion. 

r Returns. Examine the return values from a procedure. 

g Globals. Examine the globals for the module or program that 
the procedure is in. When the g command is given, the module 
or program name is printed. If it is a program, the debugger 
asks if you want to skip input and output. These are the two 
file variables that are defined for every program and take up 
space at the top. If you answer yes to this question, you do 
not have to worry about the space for them when counting 
variables. Unfortunately, there is no way to examine data in 
modules that do not have procedures on the stack. 

m Mode. The debugger cannot know the type of data, but if you 
know, you can tell the debugger. The mode command lets you 
specify the output mode for data. When you type the Mode 
command, it prints the current mode and asks for a new one. 
If you type "?" at this point, a list of the options is 
printed. They are: i=integer, s^string, c=char, B=Boolean, 
brbyte. Notice the case sensitivity of the arguments. When 
the mode is string, the debugger cannot print a range or all 
data since it cannot know how much memory was allocated to 
hold the first string. In this case, if the -1 .argument is 
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given, the offset is assumed to be zero. When printing 
strings, the length is printed first. When printing bytes, 
the radix specified still holds (although they will always be 
unsigned). For bytes and characters, offsets are still in 
terms of words; the debugger prints both bytes in the word 
specified . 

s Stack. This command permits display of words anywhere on the 

program stack. Detailed knowledge of the compilers memory 

allocation is necessary to utilize this command so it is 
generally not useful. 

q Quit. Exits the debugger and aborts the program that was 
running. This returns control back to the Shell. It requires 
confirmation. 

p Proceed. Exits the debugger and resumes the program executing. 
Note that this command allows you to resume from uncaught 
exceptions but this is not recommended. In this case, 
confirmation is required. If the debugger was entered through 
~SHIFT-D, then no confirmation is required. 

If an exception is raised inside the debugger, the debugger aborts 
immediately and exits to the Shell. In the debugger, ~€ and 
"SHIFT-C both cause immediate exit to the Shell also. "SHIFT-D is 
disabled while inside the debugger. Also, the HELP key does not 
work while in the debugger; use the debugger question mark (?) 
command . 
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10. Delete 

The command : 

DELETE FileSpecification[ ,file2, . . .filen] [/switch] 

irrevocably destroys the specified file(s). It deletes the file f s 
name from the directory and places the blocks it occupied on the 
free list, thus making those blocks available for use by other 
files. 

Wildcards may be used in the file specification, but not in a 
directory part. See the section entitled "Specifying a file name" 
in the PERQ Introductory User Manual for details on PERQ wildcard 
conventions. 

The valid switches for Delete are: 

/CONFIRM 

asks for verification before deleting 
a file. It's the default when you use 
a wildcard unless you use a PopUp 
menu (see below) . 

/N0C0NFIRM 

is the default when ycu specify 
only a filename without a wildcard. 



/KELP 



provides some online documentation. 



Delete also allows you to select the files you want to delete by 
using a PopUp menu (see the section on "PopUp Menus" in the PERQ 
Introductory Users Manual). To get a PopUp menu, type Delete 
followed by a carriage return (no arguments) . Delete will prompt 
with 

File to delete or press for Menu: 

at this point you can simply press the pen or puck for a menu. You 
can also type a file name followed by switches. For example, you 
might type 

:boot>myDir>* .TMP/confirm 

and then press down on the pen or puck. You should not type a 
carriage return before pressing. 

The menu displayed when you press contains the files that match the 
file pattern. If no pattern is typed, all the files in the current 
directory are listed. Simply select, in the menu the files that 
should be deleted. Unlike. the menu for the Shell, the Delete menu 
allows you to select multiple files. All selected files are marked 
by reverse-video. These are the files that will be deleted. You 
can de-select a selected file by simply pressing on it again. Since 
the number of files that can be displayed is limited, scrolling is 
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provided when the the number of files matching the file specifica- 
tion is large. Use of the scrolling feature is described in the 
PERQ Introductory Users Manual. 

Once you have selected all the files you wish to delete, move the 
cursor to the lower right corner of the menu to the spot with the 
"x" in it. The cursor should change to a large exclamation point. 
When you press here, all the deletes will take place. If, however, 
you press outside of the menu before pressing here, no deletes will 
take place and the program aborts. 

When using a PopUp menu for deletion, the default is NOVERIFY. Thus 
all selected files are deleted when you press the exclamation point. 
For added safety, you can still specify the /VERIFY switch (as shown 
above) to cause the system to ask for confirmation on each of the 
selected files before deleting it. 
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11. Details 



The Details command provides some information about the current 
state of your PERQ. Typing DETAILS /HELP will get you online 
documentation. The Details command line is of the form: 



DETAILS [/switch] 
Valid switches are: 



tion 



/USERNAME 

/USERID 

/MEMORYSIZE 

/PARITYERRORS 

/PROFILENAME 

/PARTITION 



/LOADEDPROFILE 

/SEARCH 

/SHELLNAME 

/SHELLINFO 

/DISKSIZE 

/TIME 

/PATH 



/LASTFILE 
/BOOTCHAR 
/BOOTS 
/SWAP 

/IOERRORS 



/ALL 
/HELP 



Name of current user 

ID of current user 

The size of memory 

Parity error information 

Name of profile file for the 

current user 

Names of all devices and partitions 

known (includes the number of free 

blocks in each partition) 

Profile information that 

is cached in memory 

Prints the current search list. 

Name of current Shell runfile 

Shell specific information 

Size of hard disk 

Gives current date and time 

Gives current path, default 

partition name and default 

device name 

Default file for Edit and Compile 

Character used for booting 

Valid boot characters 

Whether swapping is enabled or not 

and to where 

A count of how many times each of 

the 10 errors occurred since the 

last boot 

Displays all of the above informa- 

For online documentation 



These may be abbreviated to as many characters as are unique. If 
you don*t specify a switch, a selection of the available information 
is typed. If you specify *, all information is typed. 

"Details /Partition" is very useful since it tells how much free 
space there is in all the partitions. 

See the PERQ Introductory User Manual and the PERQ File System 
Utilities Manual 
Path, and Boots. 



for details on Partitions, Search lists, Shell, 
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12. Directory 



The Directory command provides an alphabetical list of files in a 
directory. You can display the directory listing at your terminal 
or you can specify that the Directory command write the listing to a 
file. The form for the command line is: 

DIRECTORY [dirSpeO] [ file Spec] {/switch} [~] [output file] 

If it is invoked without a switch, all files in the current 
directory will be listed. To write the output of a Directory 
listing to a file, specify an output filename. 

If there are wild cards, the dirSpec part is matched against all 
directories and the fileSpec part is matched against all files in 
the directories that matched dirSpec. Wild cards are described in 
the section "Specifying a file name" in the PERQ Introductory User 
Manual. Wild cards are not allowed in partition or device names. 

Examples of usage include: 

DIR 

lists every file in the current directory 

DIR *>* 

shows all files in ail directories starting with the 
current directory and including all subdirectories. 

DIR/ HELP 

gives online documentation 

DIRECTORY :B00T>x*>* .run~run .list 

looks in the Boot partition for all the run files in 
directories whose names start with "x" and writes all 
of these names into the file "run. list". 

DIRECTORY Program* 

tells you what files beginning with 
"Program" are in the current directory, e.g., 
Program. pas, Program. seg, Program. run. 

DIRECT *zing* 

lists all files with "zing" in their names. 

DIR Program*/SIZE 

lists files beginning with "Program" and 

tells how much disk space each occupies. 

The following are the switches available for use with this program: 

/HELP 

types online documentation. 

/FAST 
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prints a short directory. This is 
the default. 



/SIZE 



/ALL 



tells you how many blocks and bits 
are in each file. 



provides the following information about 
each file: 

Number of Blocks 
Number of Bits 
Kind of file 
Creation date 
Last Update date 
Last Access date 

/LISTDIRECTORIES 

When doing a multi-directory 
listing, only the directories that 
have valid matches for the fileSpec 
are printed. This switch tells 
Direct to print all directories that 
match the dirSpec even if they do not 
contain any matches for fileSpec. 



/ONECOLUMN . 

tells Direct to print all files in one 
column. This is the default when the 
output goes to a file. 

/MULTICOLUMN 

tells Direct to print files in four 
columns. This is the default when doing 
a FAST directory to the screen. This 
switch does nothing if SIZE or ALL is 
specified . 



/DELIMITER 

when used in conjunction with an output file 
specification, writes filenames as 

name | name 

into a file. This is useful 
for creating command files. 

/PARTITIONS 

gives information about all partitions 
after the files are listed. 

/S0RT=option 

specifies the method in which the directory 
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is sorted and displayed. This switch accepts 
the following options: 

N0S0RT - do not sort the directory. In this 
case, all the files are listed in essentially 
random order. This switch is useful when 
swapping is turned off and Direct does not 
have enough memory to sort the file (for 
example, when running from the floppy). 

NAME - sort by the name of the file. This is 
the default . 

SIZE - sort by file size. This operation 
lists files in decreasing order, with the 
largest file first. 

CREATEDATE - sort by creation date, The most 
recent file is listed first. 

ACCESSDATE - sort by last access. For this 
function, access is defined as the last read 
operation performed on the file. 

UPDATEDATE - sort by last update. For this 
switch, update is defined as the last write 
operation performed on the file. 
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13. DirTree 



DirTree gives a graphic representation of the filesystem* s tree 
structure. It erases the screen and then displays a tree of all the 
directories starting from the root directory on the left. Any 
directory can be specified as the root of the tree. The default 
starting place is the default device. In this case, DirTree 
displays all the partitions, and then all the directories in each 
partition, and then all the subdirectories, etc. Lines are drawn 
from each directory to its parent. If a directory is supplied, 
DirTree simply starts the search from that directory. 

If the specified, or default, root directory contains the current 
directory, DirTree highlights the current directory with reverse 
video. You can then change the path by moving the cursor to the 
desired directory and pressing the pen or puck. This is equivalent 
to issuing a Path command; DirTree permits you to change your 
current directory. 

Typing any character or pressing in an area that does not contain a 
directory exits DirTree. 

If the directory is too deep to fit on the screen, DirTree puts an 
asterisk (*) on the right of the parent. You can reinvoke DirTree 
with this directory as the root to see more of the tree structure. 

DirTree accepts three switches: /WAIT, the default, enables pressing 
to select a new path; /MOWAIT disables pressing to select a new path 
(DirTree simply displays the tree structure); and /HELP for online 
documentation . 



- 22 - 



PERQ Utility Programs Manual - Dismount 05 Feb 82 

14. Dismount 



The Dismount command detaches devices from the filesystem. The 
argument to Dismount is HARDDISK (H) or FLOPPY (F). Note that these 
names are used no matter what name the device was given when it was 
partitioned . 

Once 3 device has been dismounted, it can no longer be accessed 
until it has been mounted again. It is very important to Dismount 
filesystem floppies before removing them from the drive. 

See the section on "Mount" for more information. 



oo 
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15. Editor 



The Editor is used to create or alter any text file on the PERQ. 
You will probably use it very frequently, so it's a good idea to 
become familiar with it as soon as you can. It has its own online 
documentation (run Edit and press the HELP key) and manual (The 
Editor User's Guide), so this description is brief. Three common 
uses of the editor are discussed here. The command line for Edit 
is : 



EDITOR FileSpecification 



or 



EDITOR/replay 

If the switch is left out Edit will assume that you want to edit the 
default file name remembered by the Shell. The /REPLAY switch is 
useful when disaster occurs during an edit session; you specify the 
switch, redo the edit session, and stop just before the disaster. 
Refer to the Editor User's Guide for details. 

The Editor does extension completion on the file name specified. If 
the file to edit is FOO.PAS, it is only necessary to type FGO. The 
extensions that the Editor knows about, in order tried, are: Pas, 
Micro, Cmd , and Df s . 

The Editor signals the end of a file with a solid, left pointing 
triangle . 

Three common uses of the Editor are: 

1 . To create a new file: Invoke the editor with the name 
of your new file. The screen is cleared to give you 
a blank page to write on. Type I to insert the text 
that you want to type in. When you're finished, 

i. Press the INS key (upper lefthand corner of 
keyboard). This is important; it's the only way 
that what you typed in will be saved. 

ii. Type Q. The screen is cleared again and you are 
prompted with a list of alternatives. See the 
Editor documentation for details on these. 

2. To make changes to an existing file: Invoke the 
editor with the name of an existing file. Work with 
the Editor User's Guide at your side until you're 
comfortable with the functions available. 

If you find that you've made changes to a file that 
isn't yours or that you've done irreparable damage to 
one that is, don't panic - if, after typing Q you 
type E, all of the changes you've made will be 
ignored. 
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If you*d like to save your changes but don ? t want to 

alter the source file, you can type W after Q to make 
a new file. 

3. To read a file at your leisure: you can EDIT it, 
reading and scrolling at your own pace. To safeguard 

against your having made any accidental changes to 

the file, type E after Q. 
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16. ExpandTabs 



ExpandTabs simulates tabs in every 8th column by replacing tabs in 
the input file with the correct number of spaces. ExpandTabs is 
used when the input file was written for another system and put onto 
a PERQ, which does not support tabs. Its command line takes the 
form: 

EXPANDTABS SourceFile DestinationFile 

Note that the ExpandTabs command "does not accept the Help switch. 
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17. FindString 
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particular string. There are two modes: /CONTEXT; and /NOCONTEXT. 
In /CONTEXT mode, FindString prints leading and trailing characters 
for each occurrence of the specified string. In /NOCONTEXT mode, 
FindString prints only the first occurrence of the specified 'string 
and does not print leading or trailing characters* The default mode 
is to print leading and trailing characters for each occurrence 
(/CONTEXT). 

The first argument to FindString is the string to search for. If 
you want to include a space, comma ( ,) , or slash (/) in the search 
string, you must precede it with a single quote ('). The next 
argument is the file pattern to match files against. The remaining 
arguments are optional. You can direct FindString to write the 
occurrence( s) to a file by specifying an output file. You can also 
specify a switch to show context, ignore upper and lower case, or 
request help. Thus, an example command line is: 

FindString screen, :boot>os>* .pas~screen .users/nocontext 

The above command directs FindString to search all files with a .PAS 
extension in the OS directory of the BOOT partition for an 
occurrence of the string screen. FindString writes the output to 
the file "screen .users" . By default, case is not significant (in 
the example above, Screen matches screen). You can force FindString 
to match upper case characters by specifying the /CASESENSITIVE 
switch. FindString also accepts the /HELP switch. 
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18. Floppy 



The FLOPPY utility formats, tests, reads, and writes RT-11 format 
and filesystem floppy disks. FLOPPY can also format filesystem 
floppies. You can use FLOPPY to transfer files between the hard 
disk and the floppy disk. The command line is: 

FLOPPY [command] [/switch(es) ] 

To execute a single FLOPPY command and return control to the Shell, 
enter a command on the command line. 

To execute multiple FLOPPY functions, type FLOPPY and press return. 
In this case, the utility prompts with FLOPPY>. You can then enter 
commands or use the pop-up menu. 

Some FLOPPY commands require confirmation. This confirmation comes 
from the keyboard even if a user command file is in use. If you use 
the FAST command (see below), no confirmation is required.. The Zero 
and Format commands, however, require an explicit /NOCONFIRM switch 
to override the confirmation request. 

While FLOPPY is processing a command, a "hand" cursor moves down the 
right margin of the screen. When it has reached the bottom, your 
operation is complete. (With small files, the cursor does not reach 
the bottom of the screen.) 

The wild card handling in FLOPPY is more restrictive than the 
operating system's. FLOPPY only accepts wildcards for the DELETE 
and DIRECTORY commands (see the respective command descriptions). 
In addition, the only wild card available is the asterisk (*) and it 
can only be used by itself in either the filename or extension part 
of a file specification (or both). 

Current FLOPPY commands and their switches are: 



COMPRESS: Coalesce free space on the floppy. This 
moves files so that all the unused blocks 
are at the end of the floppy. COMPRESS 
does not accept input or output arguments, 
but has a switch which turns verification 
on or off. The default is verify; if this 
is on, COMPRESS checks every transfer to 
assure there are no errors. To COMPRESS in 
verify mode, you need not specify the 
switch, since /VERIFY is the default. The 
/NOVERIFY switch overrides the default. 
NOTE : This command takes a long time and 
cannot be interrupted once it starts. 

DELETE: This command deletes a file or multiple 

files on the floppy. To delete multiple 
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DIRECTORY 



files, you must separate the filenames with 
a comma (,). By default, the DELETE com- 
mand requests confirmation before deleting 
a file. You can override this by specify- 
ing the /NOCONFIRM switch. Wildcards are 
allowed . 

This command lists the files contained on a 
floppy and optionally writes the directory 
listing to a file. If you specify the 
command with no arguments, it 
the files contained on the flop- 
you specify an input argument, 
lists those files that match the 
filename. If you specify an 
output argument, DIRECTORY writes the list- 
ing to a disk file with that name, but does 
not display the filenames on the screen. 
By default, the DIRECTORY command prints 
(or writes) a full listing. To override 
this and print only the file names, specify 
the /SHORT switch. 



DIRECTORY 
lists all 

py. if 

DIRECTORY 
specified 



DUPLICATE 



FLOPPYGET 



FLOPPYPUT 



FAST: 



This command copies the contents of one 
floppy onto another. The command creates a 
set of scratch files on the hard disk, 
copies the scratch files back to the new 
floppy, and then deletes the scratch files 
from the hard disk. To retain the scratch 
files on the hard disk, specify the /NODE- 
LETE switch. By default, the Duplicate 
command creates a double-sided floppy. To 
override this and create a single-sided 
floppy, you must specify the /SINGLE3IDED 
switch. Remember that the blank floppy to 
be duplicated must have been formatted 
prior to invoking Duplicate. 

This command copies the contents of a floppy 
disk to the hard disk. You can optionally 
specify a hard disk file name. The Floppy- 
get command accepts the /SINGLESIDED switch 
to permit you to specify a single-sided 
floppy. 

This command copies the disk files created 
by Floppyget onto a floppy disk. By de- 
fault, Floppyput deletes the disk files 
after copying them to the floppy. You can 
specify the /NODELETE switch to override 
this action. For single-sided floppies, 
you must use the /SINGLESIDED switch. 

When issued as a command, FAST turns off 
requests for confirmation for all subse- 
quent commands except Format and Zero. Use 
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FORMAT 



GET 



the FAST command only in conjunction with 
command files . 

This command formats a floppy disk and 
destroys its current contents. The FORMAT 
command accepts the following switches: 

/DblDensity=Yes or No (default is no) 
/Noconfirm (override request) 
/Singlesided=Yes or No (default is no) 
/Test=Yes or No (default is no) 



This- command 
files to the 
form, you spe 
copy from the 
then copies 
disk using 
filename air 
GET requests 
ing it. Oth 
you to name 
example : 



copies one 
hard disk. I 
cify only an i 
floppy to the 
the floppy 
the same fil 
eady exists o 
confirmation b 
er forms of th 

the hard d 



or more floppy 
n its simplest 
nput filename to 

hard disk. GET 
file to the hard 
ename. If the 
n the hard disk, 
efore overwrit- 
e command permit 
isk file. For 



GET floppyfile~harddiskfile 



To specify multiple files, use the follow- 
ing construct: 



GET f 1,f2, .. .fn~h1,h2, . . .hn 



Like the COMPRESS command, GET takes the 
/VERIFY and /NOVERIFY switches. The de- 
fault is /VERIFY. 



HELP 



PUT: 



The GET command requires confirmation be- 
fore overwriting a file on the hard disk. 
You can specify the /NOCONFIRM switch to 
override this action. 

When issued as a command, HELP provides 
general information for the FLOPPY utility. 
You can get specific help by using the 
/HELP switch. Note that HELP and /HELP 
override any other commands or switches; 
FLOPPY displays the requested help and then 
reprompts. 

This command parallels the GET command, but 
transfers a file or files from the hard 
disk to the floppy disk. PUT also requires 
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QUIT: 

RENAME: 



DENSITY; 
TYPE: 



COMPARE: 



ZERO: 



confirmation before overwriting an existing 
file on the floppy (override this with 
/N0C0NFIRM) and, like GET, accepts the 
/VERIFY and /NOVERIFY switches. 

Exits the FLOPPY utility. 

Changes the name of a floppy file. If the 
new filename already exists, RENAME asks 
for confirmation before overwriting it. 
You can override this with the /N0C0NFIRM 
switch. 

This command tells the user whether the 
floppy is single or double density. 



This command types 
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command finds a fo 
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This command takes a disk file and a 
floppy file (in that order) and ensures 
that all bytes are identical. You can 
specify multiple disk files (input argu- 
ments) and multiple floppy files (output 
arguments) for the comparison. If you 
specify multiple arguments, you must sepa- 
rate like arguments by a comma (,) and 
delimit input form output arguments with an 
equal sign (=). COMPARE prints a message 
for every block that contains a difference. 

This command creates a new directory on the 
floppy. By default, the directory matches 
the number of sides on the floppy. You can 
override this by specifying the /SINGLE- 
SIDED switch. The Zero command always 
requests confirmation before creating the 
directory. You can override this only by 
specifying the /NOCONFIRM switch. In the 
process of creating the new directory, the 
ZERO command destroys the contents of the 
current floppy. Use the ZERO command after 
formatting a floppy (see the FLOPPY FORMAT 

whenever you wish to destroy the current 
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content of a floppy. 

Note that when you issue the ZERO command, 
you irrevocably destroy the current con- 
tents. 
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19. FTP 
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or any other computer that supports the FTP protocol. You can also 
use FTP to transfer files across an ETHERNET connection. The 
command line is: 

FTP [command] [/switch(es) ] 

To use the RS232 line, the two machines must be connected by an 

RS232 cable, which goes into their RS232 ports (located between the 

cables for the display and keyboard in the lower lefthand corner of 
the back of the PERQ) . 

To use an ETHERNET connection, you -must first assign the Ethernet 
addresses in the file SYS:B00T>ETHERNET. NAMES. The format of this 
file is the node name followed by a unique six byte address. The 
first three bytes are the Ethernet address blocks for Three Rivers 
Computer Corporation (02 1C 7C in hexidecimal) and the second three 
bytes identify the individual nodes. You can include up to ten 
nodes in the ETHERNET. NAMES file. The basic, and recommended format 
follows: 

PERQ1 540 31744 1 
PERQ2 540 31744 2 



PERQ10 540 31744 10 

You. can then issue the FTP Address command and specify the local and 
remote names. If the specified names exist in ETHERNET. NAMES, the 
connection completes. 

Once the connection or addresses are established, each machine must 
run the FTP program. Its prompt is FTP> . You can enter commands 
directly to FTP or use the pop-up menu. 

The transfer may be performed with either machine taking the a-ctive 
role; the alternate scenarios are described- below: 

1. PERQ #1 takes the active role and PERQ #2 is passive. 
They'll follow this script: 

PERQ #2: Runs FTP and starts polling 

PERQ #1: Runs FTP and then issues the next command 

PERQ #1: PUT SourceFile[~] [DestinationFile] 

Both PERQs: #!#!#!#!#!...#!#! 

(this appears on the screen as 
the file is being transferred 
and a "hand cursor" moves from top 
to bottom to show percentage 
c-^m^le te , When the hand cursor reaches 
the bottom, the transfer 
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is complete.) 

2. PERQ #2 has the active role: 

PERQ #1: Runs FTP and starts polling 

PERQ #2: Runs FTP and then issues the next command 

PERQ #2: GET DestinationFile[~ ] [SourceFile] 

Both PERQs: #!#! #! #!...# ! 

(same as above) 

The passive PERQ polls while the active machine processes the 
transfer. 

The valid commands for FTP are: 

GET SourceFile[~] [DestinationFile] 
PUT SourceFile[~] [DestinationFile] 
MODE mode (can be PERQ, VAX-11, or PDP-11; 

default is PERQ) 
BAUD baud rate (initially set to 9600) 
DEVICE line (either RS232 or ETHERNET) 
ADDRESS localname[~]remotename 

You can specify HELP whenever FTP requests input. 

You can call FTP with one command line. For example, you can 
specify: 

FTP GET DestinationFile 

Control is returned to the command interpreter Shell after that one 

command is executed. Additionally, you can specify the MODE, BAUD, 

and DEVICE commands as switches to the GET or PUT commands. For 
example : 

FTP GET file/Mode=PDP-1 1/BAUD=1200/DEVICE=RS232 

The FTP command also accepts a switch that permits you to specify 
whether or not the file to transfer is a text file; specify /TEXT 
for text files and /BINARY for other files. 

Sometimes the BitPad and pen can cause problems with file transfers. 
If you encounter any problems, unplug the pen or move it away from 
the BitPad . 

If an FTP transfer fails, the current transfer aborts and FTP waits 
for another command (or exits if invoked with a command line). 
However, if FTP was invoked from a command file and the transfer 
fails, it restarts the transfer and repeatedly tries again until it 
succeeds . 
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20. Help 

The Help command is used to display helpful information about other 
commands and the PERQ operating system. When issued without an 
argument, a message describing the PERQ and the use of PopUp menus 
is displayed. When an argument is included, information about the 
program specified by the argument will be displayed. The HELP key 
or the Help command without an argument gets you to the help 
utility, if available. The help utility erases the screen and then 
prints a list of all commands for which help exists. Type one of 
these names (or use the pop-up menu to specify one). The specific 
help is then printed for that command. 
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21 . Linker 

The Linker takes compiler-generated .Seg files, as its input and 
produces a runfile with a .Run extension. The runfile is created by 
linking together all of the separately compiled modules that make up 
a program. The command line takes the form: 

LINK Source{ , Source} [""runfile] {/switch} 

Examples of valid command lines include 

LINK Program 

where Program. Seg is the output of a compilation 

LINK Programl, Program2 

where Programl. seg and Program2.seg are compiler 
output files. The output will be Programl . Run . 

LINK Programl , Program2~Program0/VERB0SE 

where Programl. Seg and Program2.Seg are com- 
piled .Seg files and ProgramO.run is to be the 
runfile. The VERBOSE switch specifies that the 
name of each import module is to be listed. 



Any 



number of source files can be listed separated by commas 
switches currently available are: 



The 



/MAP=name 



/USER 

/VERBOSE 

/SYSTEM 
/VERSION=nn 



-creates a map file. If you don't specify a 
name after the equal sign, the MAP file 
will have the same name as the runfile with 
a .Map extension. A map file contains a 
listing showing placement and size of the 
code and data segments of the program as 
well as other linkage details. Thus, map 
files are useful in debugging user pro- 
grams. 

-this is the default. It specifies that the 
program being linked is a user program. 
The opposite is /SYSTEM. 

-lists the imports of each module as the 
module is being processed. 

-specifies that this is a system program. 



-links the program with 
system specified by "nn". 
name ends in a number (e 
then the Linker uses, the 
version number. This can 
using /VERSION=nn switch. 



the version of the 

If the run file 

g., "LOGIN. 42") , 

number as the 

be overridden by 



A word about versions. Every system has a version number. When you 
create a new system, you also should use a new system version 
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number. You then have to relink all the runfiles. This insures 
that the programs execute correctly with the new system. In order 
to prevent confusion, we have put the system version number into the 
name of certain critical system runfiles: Link, Shell, Login, and 
System (e.g. Login .5. run) . When you link a file, it looks up the 
system run file based on the version in use. If no version is 
specified, it uses the current system version (which is displayed at 
the top of the screen when in the Shell). If a version is 
specified, a system run file with that number is used to resolve 
references to system routines. If the /SYSTEM switch is used, 
however , no run file is looked for since a new system run file is 
created. The syntax for creating a system run file is: 

LINK SYSTEM-SYSTEM. NewNumber /SYSTEM/ VERSION=NewNuraber 

where the /VERSION switch is optional. 

To create runfiles for a new system, you link using the VERSION 
switch after making the system runfile. It's done like this: 

LINK FileSDecification/VERSION=NewNumber 
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22. Login 



Login initiates a user*s session at a PERQ. It is called automatic- 
ally when the PERQ is booted or when a user logs off using the BYE 
command. It can also be called explicitly by a user. 

At boot time, Login asks for the date, time, your name, and 
password. When you invoke Login, it asks for your name and 
password. Login prompts you with the format it wants these in. 

It can be called explicitly with the command line: 

LOGIN [UserName][/switch(es)] 

and will prompt you with the information it wants. 

Login searches the System. Users file for the given user-name and 
validates the password. The UserControl program (see below) main- 
tains the System. Users file. If the user has a profile, it is read 
to find parameters to set up the PERQ for the user. 

The Login command line may include switches. You can also include 
Login switches in a //Login section of your profile. The following 
describes the valid Login switches: 

/PATH=pathname 

Sets the default path to pathname. The 
/PATH switch is not cumulative, if you 
specify the switch multiple times, only 
the last one has an effect. 

/SETSEARCH= pathname 

Pushes pathname onto the search list. 
The effect of this switch is cumulative; 
if you specify the switch multiple times, 
you add additional items to the search 
list. If the argument is a minus sign 
(-) , the last path is popped from the 
list. Note that the last item specified 
is the head of the searchlist and the 
first item specified is the end of the 
list. 



/CURSORFUNCTION=n 



Sets the default cursor function. 
Since the cursor function determines 
the screen color also, this switch can be 
used to set the default screen color. 

Valid cursor functions are the integers 

through 7 inclusive. 

The integers signify the following: 

- screen is all white 
- 38 - 
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1 - only cursor displays 

2 - white on black, cursor is large square 

3 - black on white? cursor is large square 

4 - black on white, black cursor hides 

image 

5 - white on black, white cursor hides 

image 

6 - black on white, cursor inverts 



- white on black, cursor inverts 



If you like white letters on a black 
background, use CURSORFUNCTION 5. 

The default value is 4. 



/SCREENBOTTOMroption 

Sets the default parameters for 
the bottom of the screen when you 
change the screen size with a 
ScreenSize command (see below). 

Valid options for this command are: 

ON - displays bits stored in area 
OFF - bottom is all one color 
WHITE - bottom matches background 
BLACK - bottom is opposite color of 
background 



/COMMAND=string 



Execute the specified string as the 
first Shell command after login 
and before accepting commands from the 
keyboard . 



/SHELLrfilename 



Specify an alternate command 
interpreter to run instead of the Shell 
This is an aid in debugging a new or 
user written command line interpreter. 



/PROFILE=filename 



/HELP 



Specifies a file (filename) to execute as 
the profile file . 



Displays a brief explanation of the Login 
Utility. 



A sample profile for login might be: 

//Login /Path=Sys :User>MyNane> 

/SetSearch=Sys :Boot>Library> 

/SetSearch=Sys :Part3>Alt7> 
/ Cursor Fu n c t i o n = 4 
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Note that the command names in the profile can be abbreviated. 
Additional documentation for Login can be found in the section 
"Turning on the PERQ" in the PERQ Introductory User Manual. 
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23- MakeBoot 



MakeBoot writes boot files onto hard disk and floppy disk. It is 
self-prompting. Its command line is: 

MAKEBOOT [RunFile] 

See the section "Booting the Machine" in the PERQ Introductory User 
Manual for more details on booting. The manual How to Make a New 
System gives complete description of the MakeBoot program. 
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24. MakeDir 

MakeDir creates a new empty directory. Its command line is: 

MAKEDIR [FileSpecification] 

where FileSpecification is the name for the new directory. If you 
do not specify the name you will be prompted for it. All 
directories have a .Dr extension; MakeDir will provide this automat- 
ically if you do not specify it. 

MakeDir will not accept as its parameter the name ROOT or the name 
of any extant file that has a . Dr extension; it will print an error 
message if you pass it such a name. 

See the PERQ Introductory User Manual for more information on files 
and directories. 
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25. Mount 



The Mount command is used to attach devices to the filesystem. 
Devices must be mounted before files on them can be accessed by the 
fileSystem. The two Mount commands are: 

MOUNT HCARDDISK] 

and 

MOUNT F[L0PPY] 

Note that these are the forms to use no matter what the name devices 
were given when partitioned. The device that was booted from is 
mounted automatically by the system. 

Notes on M ount and Dismount : 

1. It is imperative that you dismount FileSystem (as 
opposed to FLOPPY) floppies before you remove them from 
the floppy drive. If you fail to do this, the next floppy 
put into the drive may be overwritten and the fileSystem 
floppy is also likely to be corrupted. 

2. Floppies written with the FLOPPY program cannot be 
mounted or dismounted. 

3. A device may be mounted more than once. 

4. It f s a bad idea to dismount the device you're running 
from. If you do, the system will not be able to find the 
Shell. 
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26. ODTPRQ 



ODTPRQ is a simple debugger for microcode and new operating systems. 
ODTPRQ runs on a PERQ other than the one that is being debugged. It 
communicates through a Link board that is plugged into the I/O 
option slot in the card cage. ODTPRQ has an online help facility. 
The ODTPRQ command line is: 

ODTPRQ [StateFileName] 

where StateFileName is the name of a State File. 
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27. Partition 



Partition creates new partitions on a device (such as hard disk or 
floppy). It can also be used to modify the names and sizes of 
existing partitions. Creating a new partition destroys all old data 
in the area where the partition is made. The device should first be 
formatted before using Partition. After formatting, Partition is 
the first program to run. Its command line is: 

PARTITION 

The program is self-prompting. Refer to "Partitions and the 
Partition Program" in PERQ File System Utilities Manual before using 
it. 
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28. Patch 



Patch allows you to examine and modify the contents of a disk file. 
To run it, type: 

PATCH [filename] 

If you have not specified a filename or if the specified file does 
not exist, PATCH prompts for the filename. When it has a valid 
file, it prompts with: 

Read Block [0]? 

Type return to look at the block number in brackets or type a new 
block number. You can also type HELP for some online documentation 
that describes the commands you can use. 

When you ask to read a block, Patch displays it byte by byte or word 
by word on your screen in 32-rows. You can reference each byte with 
the indices to 511. Patch permits you to make temporary or 
permanent changes to your file. 

To access all hard disk blocks, you can patch the SYS: file. 
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29- Path 



Your "path" is the directory you are currently using. To find named 
files, the system will first look in this directory and then in 
directories specified in your search list, (See SetSearch below). 
New files are created in this directory if a different one is not 
specified. The Path command changes the current directory. The 
command line is: 

PATH [pathname] 

Path does not affect the search list. If Path is called without an 
argument, it prints the current path. A new path can then be typed 
or Carriage Return to exit without changing the path. The final ">" 
of a directory name is optional for the path command so "Path Foo" 
changes the path to the directory foo. Dr. Path will print an error 
message if you try to Path to a nonexistant directory. If you 
attempt to set a Path from which the Shell cannot be accessed (which 
can happen if you change the SearchList) , Path requires confirma- 
tion . 
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30. Pause 



Pause can be used to suspend the execution of a command file and 
wait for user confirmation before proceeding. It takes a message as 
a parameter, prints it on the screen, and then waits for a carriage 
return on the keyboard before continuing. This command can be given 
by the user, but it is most useful in command files when some user 
action is required before proceeding, e.g., changing floppies. 
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31. PERQ. Files 



Part of the documentation for each PERQ operating system is a file 
called PERQ. Files which describes all the files in the system and 
states which part of the system they are in. The PERQ. Files program 
is used to list portions of the PERQ. Files text file and to make 
command files. Run the program by typing: 

PERQ. Files 

and type "Help" when you are prompted. The program types out a 
comprehensive description on how to use the program. 
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32. Print 



Print sends files to a printer (the GPIB address for Print is one). 

If the file does not begin with a form- feed character, Print 

supplies it. Also, Print supplies a form-feed at the end of every 
printed file. Its command line is: 

PRINT [Filename] [ ,filename2, . . .filenamen] [/switch(es) ] 

For printers connected to the RS232 port, Print requires Z80 PROMs 
version 8.5 (or higher) for proper operation. You can find these 
two PROMs on the "10" board (red color-coded) labeled with the 
version number. For printers connected to the GPIB (IEEE-488) port, 
the PROM versions are not relevant. Contact Three Rivers field 
service to exchange earlier PROMs. 

The Print command accepts the following switches: 



/TALL 
/SHORT 

/WIDE 
/NARROW 

/SHIFTm 

/COPIESm 

/START=n 

/ST0P=n 

/BAUD=n 
/TABSm 
/TITLE 

/NOTITLE 

/BREAK 

/NOBREAK 

/HP 

/LINEPRINTER 

/DIABLO 
/PLAIN 

/HELP 



tall characters (six lines per inch) 

short characters (eight lines per inch) 

/SHORT is the default 

wide characters (10 characters per inch) 

narrow characters (16.5 characters per inch) 

/NARROW is the default 

shifts the listing n spaces to the right 

/SHIFT=0 is the default 

specifies the number of listings 

/C0PIES=1 is the default 

specifies the page number of the document to 

begin orinting 

/STARTrl is the default 

specifies the last page number of the document 

to print 

/STOP=lastpagenum is the default 

sets the baud rate for printing 

/BAUD=9600 is the default 

tab stops every n characters 

/TABS=8 is the default 

prints a title line at the top of each page 

/TITLE is the default for files with other than 

a DOC extension 

omits the title line 

/NOTITLE is the default for * . DOC files 

places a blank page between each page of the 

listing 

omits the blank page 

/NOBREAK is the default 

initializes to use the Hewlett-Packard 7310A 

initializes to use the TI 810 (or similar) 

printer 

initializes to use the Diablo 630 daisy printer 

no initialization; use with generic printers 

/PLAIN is the default 

supplies online documentation 
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33.PRQMic 



PRQMic is the PERQ microcode assembler. It takes a microcode 
source program (whose extension is .MICRO) , and produces output that 
can be used as input to the microplacer , PRQPlace. The PERQ 
Microprogrammers Guide has details on how to write microprograms and 
how to use PRQMic . 
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34. PRQPlace 



PRQPlace is the PERQ microcode placer. It takes the output from the 
microassembler, PRQMic , and produces a file (with extension .BIN) 
that can be loaded into the PERQ microstore. The PERQ Microprogram- 
mers Guide has details on the use of PRQPlace. 
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35. QDis 



QDis is a disassembler for Q-Code. It decodes a ,Seg file into 
Q-code. The command line: 

QDIS 

causes the following sequence: 

1. The program identifies itself as QCode Disassembler. 

2. You are then prompted for an input file. Type the name 
of the program or module you want disassembled. 
(Since the input to QDis is a . Seg file, the input 
file must have been compiled.) You needn't specify 
.Seg but must specify extension if it is anything else. 

3. Next, you are prompted for an output file. The default 
is CONSOLE: . 

4. QDis displays a list of the program's routines and 
the following information about each: 

Routine name 
Routine number 
Lexical level 
Parameter size 
Result + Parameter size 
Local + Temporary size 
Entry address 
Exit address 

5. QDis next will ask you which routine you'd like to 
see disassembled. Type in a routine number; the 
program then types a listing of that routine's 
Q-code translation. 

Step 5 can be repeated indefinitely. 
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36. Rename 

Typing the command line: 

RENAME SourceFile[~]DestinationFile 

will change the name of SourceFile to DestinationFile. You can 
rename a file from one directory to another (move the file) as long 
as both directories are in the same partition. 

Rename prompts for any missing arguments. 

You may rename a .Run file, but" if you rename a . Seg file you must 
re-link the programs which use it. 

The source file for Rename may contain wild cards (for a description 
of the wild cards, see the "PERQ Introductory User Manual"). If the 
source contains wild cards, the destination must contain the same 
wild cards in the same order. In this case, Rename finds all files 
in the directory which match the source pattern. For these files, 
the part of the source file name that matched each wild card is used 
to replace the corresponding wild card in the destination. As an 
example, for the command: 

RENAME foo*.abc# anotherdir>*baz.rmn#z 

The input file "F00ZAP. ABCD" would be renamed to the new file 
"anotherdir>ZAPbaz.rmnDz" . 

If wild cards are used, Rename asks for verification of each file 
renamed. This can be disabled with the switch "/NOASK" or enabled 
with the switch "/ASK." The default is enabled. 

Wild cards are not allowed in the directory part of the source file. 

When the source file name contains no wild cards, the destination 
file name may contain, at most, one occurance of the wild card "*"„ 
In this case, the non-directory part of the source replaces the "*" 
in the destination. For example, 

RENAME sys:Boot>newOS>myprog.Pas dir3>new.* 

would rename the file "sys :Boot>newOS>myprog . Pas" to a new file 

named "dir3>new.myProg . Pas" . This is most useful when you want to 

rename a file from one directory to another with the same name. 
For example, 

RENAME dir1>prog.Pas * 

moves prog. pas from the directory "dirl" into the current directory. 

If there are no wild cards in the source, an attempt to include in 
the destination name other wild card characters, besides the single 
"*" discussed above,. may lead to problems later. These extra wild 
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cards will be treated as simple literal characters. Because a file 
name with wild cards in it is hard to specify, Rename requires 
confirmation before creating a file with wild cards in the name. 

If the the destination file already exists, Rename requests confir- 
mation before deleting. This can be disabled by using the switch 
VN0C0NFIRM" or enabled using the switch "/CONFIRM". /N0C0NFIRM 
also sets /NOASK. If an error is discovered and wild cards were 
used, Rename asks the user whether to continue processing the rest 
of the files that match the input. This confirmation is required no 
matter what switches were specified. 

A final switch is "/HELP" which describes the function of Rename and 
the various switches. 
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37. ReRun 

ReRun is a convenient method to reexecute the default file remember- 
ed by the Shell and supply new arguments, to the runfile. The 
command line is: 

ReRun arguments 

The ReRun command is most useful when the default file has an 
especially long name. For example, if "Programwithlongname" is the 
default file, the command: 

ReRun A b 3 

is the same as typing: 

Programwithlongname A b 3 
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38. Run 
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Shell. If you have been editing, compiling and linking the default 
file , simply typing : 

RUN 

executes that default file. The Run command sets the default file 
to the specified runfile. For example, the command: 

RUN Foo argl arg2 

is the same as typing: 

Foo argl arg2 

except that the first command (Run Foo argl arg2) sets the default 
file to Foo. 



PERQ Utility Programs Manual - ScreenSize 05 Feb 82 

39. ScreenSize 



The display on the PERQ screen is stored in memory and requires 48K 
words (192 blocks). Sometimes it is advisable to give up some of 
the screen and allow this memory to be used for storing data or 
programs. For example, the Scavenger runs with swapping off so it 
shrinks the screen to allow its data and code to fit into memory. 
Even when swapping is enabled, some programs, such as the compiler, 
want to trade speed for screen size. 

The ScreenSize command prompts for the number of scan lines used in 
the display for the next program run. The screen expands to full 
size after that program has completed. The full screen has 1024 
lines in it. The number you supply must be greater than zero, less 
than or equal to 1024, and a multiple of 128 (e.g. 128, 512, 768, 
etc.). You can specify a number in the range 1 through 8 and 
ScreenSize will multiply the number by 128. For example, if you 
specify the value 4, ScreenSize multiplies 4 by 128 and uses 512 as 
the number of scan lines (512 is half of the screen). 

ScreenSize accepts four switches to permit you to control the bottom 
portion of the display. The switches are: 



/ON 



/OFF 



This switch permits you to see the data or code 

that is stored in the screen area. 

The memory manager is told that the memory is 

free, but the 10 package still thinks it should be 

displayed. The screen 

package will not let you create a window or write 

into that area 

(unless a program calls RasterOp or Line directly) 

This switch is the default condition, 

unless an entry in the user profile has changed it 

(see Login above) . 



This switch forces the bottom of the screen area to 
a solid color. 



/WHITE 



This switch forces the bottom of the screen area to 
the same color as the usable part of the screen. 

/BLACK 

This switch forces the bottom of the screen area to 
the opposite color of the general background. 

The Shell shrinks the screen automatically for certain programs. If 
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you explicitly call ScreenSize before these programs are run, then 
the Shell will not override your settings. 
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40. Scavenger 



The Scavenger checks the filesystem's structures and fixes any 
errors found. It can be called any time you suspect a filesystem 
problem or whenever you need to reconstruct a directory. It is 
self-prompting. 

Its command line is: 

SCAVENGE 

For more details on this program, see the section "Scavenger 
Program" in the PERQ File System' Utilities Manual. 



- 60 - 



PEHQ Utility Programs Manual -' SetBaud 05 Feb 82 

41. SetBaud 



SetBaud allows you to specify the baud rate to the RS232 line. 
Valid baud rates are: 110; 150; 300; 600; 1200; 2400; 4800; and 
9600. The command syntax is: 

SetBaud 4800 
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42. SetSearch 



SetSearch allows you to add and remove paths to search lists and to 
change their order. Its command line is: 

SETSEARCH [ pathname] [, pathname] 

If you do not specify a pathname, SetSearch displays the current 
search list and then permits you to change it or simply exit. 

If you specify a file name, SetSearch pushes that name onto the 
search list; if it is a hyphen (-), the first item on the list is 
popped off. 

The current search list is 5 items deep with the first and last 
slots reserved. SetSearch gives you a warning if you attempt to 
push something onto the first slot or pop something off the last. 
In addition, when you try to exit, SetSearch checks to make sure 
that the Shell can be found with the new search list and path. If 
not, you are asked for confirmation before exiting. 
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43. SetTime 
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Specify the time and date as follows: 

DD MMM YY HH:MM:SS 

The time notation uses a 24 hour clock and the seconds are optional. 
An example command line which sets the date to June 3> 1955 and the 
time to 3:30 PM folllows: 

SetTime 3 Jun 55 15:30 

SetTime permits you to change only the time; if you omit the date, 
you correct the time. 
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44. Statistics 



The operating system constantly collects statistics about the 
performance of the swapper. To display the statistics after each 
execution completes, specify the command: 

STATISTICS Yes 

To end the display, type the command: 

STATISTICS No 

After each program is executed, the Shell prints the Statistics for 
that program in the following format: 



Load 


1 .6 


sees . 


Exec 


3.6 


sees . 


10 


0.8 


sees . 


Swap • 


0. 1 


sees . 


Move 


0.0 


sees . 


Duty 


97.2 


percent . 



Load is the time spent loading the program and its modules into 
memory. Exec is the total time spent executing including 10, Swap 
and Move times. 10 is the time spent doing Unit-level 10 not 
including 10 time spent swapping. Swap is the amount of time spent 
swapping. Move is the. amount of time spent moving segments from one 
place in memory to another to try to find room for new allocation. 
Duty factor is the proportion of time spent in actual work. - It is 
computed in the following way: 

100 * (Exec - Swap - Move) / Exec 
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45. Swap 



The Swa n command enables or disables the virtual memory system. The 
command "SWAP NO" turns virtual memory off, and swaps ail active 
segments into memory, "SWAP YES" turns swapping on. In this case, 
you may specify a partition to use for the swap files. For example. 

SWAP YES Sys:Boot> 

enables swapping to the Sys:Boot> partition. When booting from the 
hard disk, swapping is initially enabled in the partition containing 
the boot file. If you simply specify SWAP YES with no partition 
name, this default partition is used. When booting from the floppy, 
swapping ^Ls initially disabled. We discourage swapping to a floppy 
disk because floppies have a small capacity, are slow, and may be 
dismounted at any time. 
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46. TypeFile 

Type displays any file or files on the console. The command line: 

TYPEFILE FileSpecification 

displays a single file on the console. To display multiple files, 
sequentially, separate the file specifications with a comma (,). 

When the TypeFile command finds a formfeed character (~L) in the 
file or when it gets to the bottom of the screen, it waits after 
displaying a screenful of text. This permits the user to read the 
page before the screen is erased and the next page is displayed. To 
continue, type "Q. This waiting can be disabled by using the 
/NOWAIT switch. The /WAIT switch, which is the default, capes the 
waiting to happen. The final switch available is /HEffP, which 
displays online documentation. 

The TypeFile command displays a solid, left pointing triangle when 
it reaches the end of the file. 

TypeFile does extension completion on the file name specified. If 
the file to print is FOO.PAS, it is only necessary to type F00. The 
extensions that type knows about, in order tried, are: Pas., Micro, 
Cmd , Df s , and Doc . 

If no filename is supplied on the command line, TypeFile will 
display the default file name. This is the same default file used 
by the Editor, Linker, Run, etc. Unlike these programs, however, 
TypeFile does not change the default file name. 
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47. UserControl 



UserControl is used to maintain the System. Users file which contains 
information about valid users and their passwords, group identi- 
fiers, and user profiles. This information is used by the Login 
program (see above). The System. Users file must be in the root 
directory (top level) of the partition where the boot file is. Its 
command line takes the form: 

USERCONTROL [command] [/switch( es) ] 

If you include a command, UserControl executes the command and then 
exits to the Shell. If you do not include a command, UserControl 
prompts with: 

UC> 

and waits for input. 
The following are valid commands: 
HELP 

Provides online documentation. 

ADDUSER [username] [/switch(es) ] 

Adds a new user to the user file or, updates 
the information for an existing user. If 
you omit a username, the command prompts for 
one . 

Any printing character except blanks, spaces, 
equal signs ( = ),. commas (,), or slashes (/) 
are valid usernames. The maximum 
number of characters is 31. The command 
accepts the following switches: 

/PASS - permits an existing user to change his 
password or enters a password for a new user. 
Note that when you specify the /PASS switch, 
UserControl prompts for the password. You can 
enter any printing character except blanks, 
spaces, equal signs (=), commas (,), or 
slashes (/). The maximum number of characters 
is 31 • You can also respond to the password 
prompt with CR. This causes a null password 
to be entered for the user . 

If you omit the switch for a new user, the 
password defaults to null. For an existing 

+\ h «=> rv 

is omitted. 
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/GROUP=[group id] - permits an existing user 
to change the group id or enters a group id 
for a new user. The value, for group id can 
be any integer from to 255 

inclusive. If you do not specify a group id, 
you are prompted for a value. 

If you omit the switch for a new user, the 
group id defaults to 1. For an existing 
user , group id is unchanged if the switch 
is omitted. 

/PROF=[pro.file] - specifies the complete path 
for the user's profile file. 

If you omit the switch for a new user, the 
default is SYS: USER>name>PROFILE. For an 
existing user, the profile is unchanged if 
you omit the switch. 



CHECKUSER [username] 



Validates a username and password. If you omit 
the username, the command prompts for one. 



NEWFILE 



LISTUSERS 



Destroys the existing System. Users file and 
creates a new System. Users file. 



Displays a list of all of the valid users. 



REMOVEUSER [username] 



QUIT 



Delete a user from the file. If you omit the 
username, the command prompts for one. 



Exits the program. 



You can also specify the /HELP switch (type /HELP or press the HELP 
key) with any command or in response to any prompt to display 
specific help information. 
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This manual describes version V2.0 of the PEHQ text editor. 
It includes a small amount of overview and philosophy behind 
the Editor and contains a list of the commands available. 
The reader is expected to have a general grasp of computers 
and computerized editors. Some experience or familiarity 
with a similar editor is helpful. 



Changes 

The major feature introduced with this version of the 
editor is a set of commands to control the selection from 
the keyboard. A few features of the editor have been 
modified : 

Find can ignore the case of the text. 

Find and Replace can be interrupted with control-C. 
The reverse direction flag (<) is turned off by most 
commands. 

The verify flag (V for Replace Command) is turned off by 
most commands. 

The replot function is invoked by Q,R, Return (not X). 



Copyright (C) 1982 

Three Rivers Computer Corporation 

720 Gross Street 

Pittsburgh, PA 15224 

(412) 621-6250 
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This document is not to be reproduced in any form or 
transmitted in whole or in part, without the prior written 
authorization of Three Rivers Computer Corporation. 

The information in this document is subject to change 
without notice and should not be construed as a commitment 
by Three Rivers Computer Corporation. The Company assumes 
no responsibility for any errors that may appear in this 
document . 

Three Rivers Computer Corporation will make every effort to 
keep customers apprised of all documentation changes as 
quickly as possible. The Reader's Comments card is distrib- 
uted with this document to request users' critical evalu- 
ation to assist us in preparing future documentation. 



PERQ is a trademark of Three Rivers Computer Corporation: 
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Introduction 

It is probably a good idea to sit down at a PERQ and try out 
the Editor as you are reading. A good file to edit when you are 
first trying out the Editor is one of the Editor's help file, This 
way you can read the help file while you are editing. You should 
copy it to a scratch file so that you won't have to worry about 
accidentally changing it. Do this with the system "Copy" command: 

Copy >HelpDir>EditorHelp>Introduction .Help Scratch. File 

Now ask the Editor to edit this new scratch file: 

Edit Scratch. File 

The PERQ text Editor is a "point, act" Editor. This means that 
to perform an editing action, you first "point" to a piece of text 
in the file and then perform some action on it. Pointing is done 
with the tablet and puck or pen. When you move the puck on the 
tablet, the pointer on the screen moves to follow it. The pointer 
changes shape depending on where it is on the screen. It is usually 




.... _..jpc, .. Q _ ..-.re- 
press the buttons on the puck (or press down with the pen) . 

To select a specific piece of text, move the puck so the 
pointer is at the text and press the yellow button. With one press 
a character is selected. A second press without moving the pointer 
selects the word of adjacent letters and digits. A third press 
selects the entire line. Another way to select an entire line is to 
press when the pointer is at the left margin line. The other 
buttons on the puck can also be used to make selections: the white 
button selects a word, the green button selects a line, and the blue 
button extends the selection to the location pointed at. 

Once you have selected some text, you can extend the selection 
by moving the pointer to the end of the desired piece of text and 
then typing "E". The selection is extended to a character, word, or 
line boundary, depending on the type of your last selection. 
Commands that. change the selection (other than Extend, W, and L) set 
the type to character. Unfortunately, you can make the selection 
larger with Extend, but you cannot make it smaller. To do so, you. 
can start over with a fresh selection or use the M command described 
below. 

After selecting text, you can perform some action on it. You 
can insert before or after it, delete it, search for a character 
string that follows it, or any of the other Editor actions. The top 
line of the screen usually shows editor version, file name, and 
time. It also displays repeat counts and flags for More, Verify, 
and direction. On occasion the line is used for error messages and 
prompts within commands. 
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When the first line of text is showing on the screen, it is 
indicated by a "►" in the left margin--this is the beginning-of-text 
marker. When the last character of the file is showing on the 
screen, it is followed by a "*" — this is the end-of-text marker. 
You may select this character, but it is not affected by text 
modification commands. 

The following sections describe the commands available. Each 
command description begins with the letter on the key used to 
perform the command. 



First Things First 



HELP - Get explanations 

Type the HELP key to get explanations of the editor commands. 

(If you are "in" a command, you may need to type DEL before 

typing HELP.) The editor will display a list of commands and 

keywords. You may then type the name of an entry (the word or 

letter before the dash) and the editor will display an 
explanation. To exit, just type the RETURN key. 

Q - Quit from the Editor 

To leave the editor, type the "Q" key. (If you are "in" a 
command, you may need to type DEL before typing "Q".) When you 
type "Q", the screen is erased, and a list of options is 
presented: 

U to update <your file name) 

W to write to another file 

E to exit without updating 

R to return to the Editor 

Type one of these letters followed by RETURN. You may wish to 
pause before the RETURN to be sure you have the right choice.- 

If you update or write to a file that already exists, the 
Editor saves the old version of the file by adding a "$" to the 
end of its name. This allows you to get the old version back 
if you decide you made a mistake. You can safely edit the 
backup file since it has a different name than the new version 
of the file. 

While it is never a good idea to type control-C while you're in 
the Editor, you should not type it while the Editor is writing 
the new copy of your file. You will lose the new version of 
your file, and the old version will be in the backup file. If 
you type control-C before writing the new file or type " E !! to 
exit without updating, your file will remain unchanged regard- 
less of any changes you made with the Editor. 
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Special Keys 

The Text Modification commands are terminated by "Accept" or 
"Reject". The first of these indicates that the change is desired, 
the editor makes the change. The second foregoes the change, the 
editor leaves the text as it was before the command. Acceptance is 
signalled by typing the INS key. Rejection is signalled by typing 
the DEL key. 

When inserting text with the Editor, BACK SPACE deletes the 
most recently typed character, control-BACK SPACE deletes the most 
recently typed word, and eontrol-OOPS deletes the most recently 
typed line up to and including the carriage return. The RETURN key 
(carriage return) is used to mark the end of each line in your file. 
The Editor does automatic indenting for you by supplying leading 
blanks on the new line to match those on the previous line. You may 
BACK SPACE over them or type more. 

The special keys have alternates as shown by this table: 

Action Character Alternate 

End-of-Iine RETURN cont.rol-M,control-J 

Erase character BACK SPACE control-H 

Erase word control-BACK SPACE control-W 

. Erase line control-OOPS control-U 

Accept IMS control-Y 

Reject DEL control-N 

Quote control-" -none- 

Since these special keys have special meanings, they must be 
"quoted" to insert them in your file; Type control-" (the Editor 
quote character) followed by the special key. When you type 
control-", the insert cursor changes from "_" to " Q" to indicate 
you typed the quote character . 



INS - Repeat the last command 

Typing the INS key at command level repeats the last command . 
Only certain commands may be repeated this way, since it does 
not make sense to repeat some commands like * and Extend. 
Commands that may be repeated are A, I, R, S, D, and those 
which move the selection. 
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Repeat Count 

Typing a 1- to 4-digit number enters a repeat count; it is 
displayed in the prompt line after the letter "R". This number 
specifies how many times to execute the next command, but it only 
applies if the command is Find, Repeat, Goto character, LF(Scroll), 
Line, Word, or one of the Character Selection commands. The number 
of repetitions actually performed is displayed in the prompt line 
after the letter "C". 



Reverse Direction 

Many commands move through the file. They can do this either 
forward toward the end of the file or in reverse toward the 
beginning of the file. The current direction is displayed by a "<" 
or ">" in the upper left corner of the screen. It effects the 
commands Find, Replace, Word, Line, and Goto character. The flag is 
turned forward by all other commands except More, Extend, Verify, 
and Note. It is also turned forward by Find, but the old direction 
is remembered if the Find is repeated with INS. 

> - Forward Direction 

Typing a ">" sets the forward direction (toward the end of the 
file). "+" and "." (unshifted ">") are synonyms for this 
command . 



- Reverse Direction 

Typing a "<" sets the reverse direction (toward the beginning 
of the file). "-" and "," (unshifted "<") are synonyms for 
this command . 



View Selection 



The Scroll Bar 

The area to the left of the left-margin line is called the 
"scroll bar". If you move the pointer into this bar, it changes 
into an up-pointing arrow at the left side and a down-pointing arrow 
at the right side. If you press the yellow button when the arrow is 
pointing up, the line that the pointer is next to is scrolled to the 
top of the screen. If you press when the arrow is pointing down, 
the top line of the screen is scrolled down to the line that the 
pointer is next to. Thus, if you put the pointer near the top of the 
screen, by pressing repeatedly, you can scroll slowly through the 
file. If you put the pointer near the bottom of the screen, you can 
move through the file in large jumps of pages. If you put the 
pointer near the middle of the screen, you can move through the file 

- 4 - 



Editor V2.0 User ' s Guide 05 Feb 82 



in half-page jumps. 

When the pointer is in the Scroll Bar area, the puck buttons 
have special meanings: the white button always scrolls the text up 
and the green button always scrolls it down. 

LF, Control-LF - Scroll 

LF repositions the screen window so it displays text starting 
with the 3?th line of the previous display. Control-LF scrolls 
in the other direction so the previous top of the screen is at 
the new bottom. 



T - Top 

The line containing the end of the current selection is moved 
to the screen. If on-screen, it is moved to the bottom. 

B - Bottom 

The line containing the current selection is moved to .the 
bottom of the screen. (If off-screen, it is moved to the 
middle.) 



The Thumb Bar 

The top-margin line is called the "thumb bar". When you move 
the pointer to this line, it changes into a circle. Think of the 
thumb bar as a linear representation of your file. The left end of 
the bar represents the beginning of your file. Special characters 
are used to represent other interesting parts of your file: 

4 - Represents the end of the file. 

5 - Represents the position of the beginning of the 

selection . 

( - Represents the position of the beginning of the 
displayed text . 

) - Represents the position of the end of the displayed 
text . 

N - Represents the position of the Noted display. 

- Represents the position of the display at the last 
thumbing . 

The thumb bar is used to rapidly move around in your file, but 
it is not very precise. When you put the pointer on the thumb bar 
and press down, the portion of the file represented by that portion 
of the bar is displayed on the screen. When you press at "S", the 
beginning of the selection is shown. For "N", the noted position is 

shown. And so on. Similar control can be achieved with the X 
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command described below. 

The thumb bar can also be used to extend the selection. When 
you type "E" while in the thumb bar, the selection is extended to 
the position in the file which is represented by that particular 
portion of the thumb bar. This is usually only useful for extending 
to the beginning or end of the file. 

N - Note 

The current screen display is noted and an N is placed in the 
Thumb Bar. The thumb bar may be used to return to this current 
display by selecting the N. 



Text Selection 



E - Extend the selection 

This command extends the current selection from where it is to 
the text currently indicated by the pointer. See the M command 
for an alternative way to extend the selection. 

* - Select the entire file 

The entire file is selected. This is useful for Find, which 
otherwise begins its search from the current selection. It is 
also useful for doing replacements throughout the text. 

F - Find a character string 

(N. B. : The search starts at the beginning of the selected 
text.) When you type "F", the top line shows the prompt 

Find: enter target string 

Type the string you want to search for and then Accept or 
Reject. Rejection aborts the Find command; Acceptance starts 
the search. If you Accept immediately after typing "F" , the 
previous target string is used. Lower case letters in the 
target string will match both upper and lower case letters in 
the text, but UPPER case target letters will match only upper 
case text letters. 

While searching for the target, the top line displays the cue 
"Finding". At this time, the search can be interrupted by 
typing control-c. The selection will be unchanged. 

If the target string is found, it. becomes the selected text. 
Note that the target string is shown at the top of the screen 
inside of 

F{ ... } 



- 6 - 



Editor V2.0 User's Guide 02 Feb 82 

A Find command can be done in the reverse direction (toward the 
beginning of the file). See the section "Reverse Direction". 
You can ask the Editor to search for a certain number of 
occurrences of the target string by preceding the command with 
a number. See the section "Repeat Count". 



Text Modification 

Text modification is done with the commands Insert, Append, 
Substitute, Replace, and Delete. The first two of these operate 
before and after the current selection, but the others operate on 
the current selection itself. After execution of one of these 
commands, it can be re-executed by pressing the INS key. This can 
be handy for inserting the same text in- a number of places. 

A - Append text after the selection. Type text until you are done, 
then either Accept or Reject the insertion. If you Accept 
immediately after typing "A", the most recently inserted or 
deleted text is inserted. If you Accept, the text you have 
just typed is displayed at the top of the screen inside of 

I{ ... 1 

D - Delete the selected text. If you delete text, it is displayed 
.at the top of the screen inside of 

D{ ... } 

The character which immediately follows the deleted text is 
selected. 



I - Insert text before the selection. Type text until you are done, 
then either Accept or Reject the insertion. If you Accept 
immediately after typing "I", the most recently inserted or 
deleted text is inserted. If you Accept, the text you have 
just typed is displayed at the top of the screen inside of 

I{ ... ) 

R - Replace 

This command finds all occurrences of a given string within the 
currently selected text. As each is found, it is replaced by a 
second given string. Typing "R" causes the prompt 

Replace: enter target string 

at the top of the screen. Type in a string and then Accept or 
Reiect. Note that the target string is displayed inside of 
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F{ ... } 

just as though you were using the the Find command. Lower case 
letters in the target string will match bo.th upper and lower 
case letters in the text, but UPPER case target letters will 
match only upper case text letters. If you Accept, the prompt 

Replace: enter replacement string 

is shown at the top of the screen. Now you can type in the new 
string to replace occurrences of the target string. If you 
Accept before typing any characters of the replacement string, 
the previous replacement string is used. This means that to 
replace with nothing, you must first type a character and then 
delete it with the BACK SPACE key. 

While the editor is "Replacing", you may interrupt by typing 
control-c. The Count field at the top of the screen will show 
how many replacements have been made. 



In the absence of a Repeat Count, all occurrences within the 
selection are replaced. If a Repeat Count is typed immediately 
before the "R", the specified number of occurrences are 
replaced, starting at the beginning of the selection. See the 
section "Repeat Count". The direction can be changed as 
described in the section "Reverse Direction". 



V - Toggle Verify mode 

When you type "V", Verify mode is turned on or off, depending 
on whether it was off or on before. When Verify mode is on, a 
"V" is displayed in the prompt line. Most commands revert the 
verify flag to non-verify mode. Those that do not cause 
reversion are Word, Line, *, Goto character, More, Extend, 
Note, and the Character Selection commands. 

In Verify mode the Replace command gives you the option of 
replacing, not replacing, or aborting at each occurrence of the 
target string. The prompt 

Replace: INS replaces, <space> doesn't, DEL aborts 

is displayed for each occurrence of the target string. The 
target string is indicated by a double underline and by the 
pointer arrow (if you keep the puck or pen away from the 
tablet). This double underline is difficult to see, but it's 
there. You may now Accept the replacement with INS, you may 
skip over this occurrence by typing the space-bar, or abort the 
replace command with DEL. 



- 8 - 



Editor V2.0 User's Guide 05 Feb 82 



S - Substitute 

New text is substituted for the selected text. This command is 
similar to the sequence "Delete, Insert", After typing "I", 
type text until you are done, then either Accept or Reject the 
insertion. If you Accept immediately after typing "S", the 
most recently inserted or deleted text is inserted. If you 
Accept, the text you have just typed is displayed at the top of 
the screen as the most recently inserted text inside of 

I{ ... 1 

and the text you have just deleted is displayed at the top of 
the screen inside of 

D{ ... } 

After substituting, the character immediately following the 
deleted text is selected. 

Be careful. It is easy to confuse Substitute and Replace. 
There is no way to "undo" a Substitute command because .you 
cannot re-insert the deleted text. Attempting to re-insert the 
most recently inserted or deleted text will merely re-insert 
the text you just typed in. The deleted text is gone forever. 
This means that if you type "S" when you meant to type "R", you 
may accidentally delete a large portion of your file and have 
no way of getting it back. (Should disaster strike, see the 
section below on "Transcript/Replay".) 



Character Selection 

The Character Selection commands move the selection as though 
it were a cursor for insert. The new selection is a single 
character close to the former selection. None of these commands is 
affected by the Reverse Direction flag, but all are performed as 
many times as specified by the Repeat Count. They reset the Reverse 
Direction flag unless the More flag is set. When the More flag is 
set, these commands still move in their usual direction; thus, they 
can be used to reduce the selection. 



SPACE - Move to the character following the previous selection. 

BACKSPACE - Go to the character preceding the previous selection 
Control-H is synonymous with this command. 
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TAB - Advance five characters from end of previous selection. 

Control-TAB - Go back five characters from beginning of previous 
selection/ 

Control BACKSPACE - Go to the beginning of the word preceding the 

current selection. Control-w and Control-W are synonymous with 

this command, but shift-control-W treats a word as any consecu- 
tive string of printable characters. 

RETURN - Move to first character of line following the previous 
selection. Control-U is synonymous with this command. 

Control-RETURN - Go back to first preceding non-blank that follows a 
CRLF. Control-OOPS is synonymous to this command. 

X - Thumb bar (X-Coordinate selection) 

An "X" is placed on the thumb bar at the top of the screen. 
The following keys are active: 

INS - Display the part of file corresponding to 

current position 
of the "X". 
DEL - Aborts. Display and current selection are 

unaffected . 
TAB - Move "X" five positions to the right. 
control-TAB - Move "X" five positions to the left. 
SPACE - Move "X" one position to the right. 
BACKSPACE - Move "X" one position to the left. 
RETURN - Move "X" to end of file position. 
Control-RETURN - Move "X" to beginning of file 

position. 
Digits - Set repeat count for TAB'S and SPACE'S. 
- Move to marker on line. This marker indicates 

what text was displayed prior to the last thumb 

bar selection. 
N - Move to the N marker on the line. This marker 

is set by the N command. 

The current selection is unchanged by X. However, if a 
keyboard command (C, W, L, G, space, ...) is given when the 
selection is off screen, the operation is treated as though the 
first character of the screen had been previously selected. 
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G - Go to character 

After typing "G", one more character is typed. The editor 
searches the rest of the screen for the character. If found, 
it becomes the current selection. If the Reverse Direction 
flag is set, G searches from the current selection toward the 
top of the screen otherwise it searches only from the selection 
downward. INS will repeat a G command if it was the last 
command exectued. A repeat count may also be given to select a 
character a known number of instances away. If the More Flag 
is set, the selection is extended to the found character. 

w, W - Select Word 

This command selects the word that follows, extends, or begins 
the current selection. If the current selection is a word or 
is outside a word, the following word is selected; if 
currently inside a word, the entire word is selected. When the 
current selection overlaps more than one word, the one overlap- 
ping the beginning of the selection is chosen. Unshift-w 
chooses words that are consecutive letters and digits; Shift-W 
defines a word as any sequence of printable characters. 

A Repeat Count of (say) n will cause the selection of the n'th 
subsequent word. If the Reverse Direction flag is set, the 
search will be toward the beginning of the file. If the More 
flag is set, the selection is extended to the end of the word 
that would otherwise be selected by this command. 

L - Select Line 

If a line is currently selected, this command selects the next; 

otherwise it extends or contracts the current selection to be 

the line that included its start. 

A Repeat Count of (say) n will cause the selection of the n f th 
subsequent line. If the Reverse Direction flag is set, the 
search will be toward the beginning of the file. If the More 
flag is set, the selection is extended to the end of the line 
that would otherwise be selected by this command. 

M - More in selection 

Turns on the More flag, indicated by an M in the prompt line. 
When this flag is on, selection commands extend the current 
selection rather than change it. The selection grows only at 
the end indicated by the Reverse Direction flag. The Character 
Selection commands (SPACE, BACKSPACE, RETURN, etc.) can cause 
the selection to shrink at that end. In More mode, these 
commands do not select a single character, nor do they change 
the direction flag. More mode is extinguished by More again or 
by executing *, Extend, Quit, or one of the Text Modification 
commands . 
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Transcript/ Replay 

The Editor writes a transcript file during every edit session. 
The transcript is a file which contains a description of every 
keystroke and puck or pen press performed during an edit session. 
This transcript is written to the file ">Editor . Transcript" . The 
transcript may be replayed later. This feature is intended for use 
when the Editor or the PERQ crashes during an edit session or if you 
make some disasterous error with the Editor. 

The Editor saves keystrokes and presses and writes them to the 
transcript file whenever: 

1) A carriage-return is typed in Insert mode. 

2) A command which changes the text is successfully completed. 

3) The transcript buffer is filled. 

If an old transcript file exists, it is destroyed the first 
time the buffer is flushed. This means that you can re-enter the 
Editor without destroying the old transcript file as long as you do 
not do something that causes the buffer to be flushed. Keep in mind 
that presses count against the 256-word buffer. If you do not want 
to destroy the old transcript file, do not type any commands, do not 
press more than a few times, and exit the Editor by typing 
control-shift-C. 

To replay a transcript, type "Editor/Replay". The Editor 
replays the previous edit session and stops just before the first 
command. You can control the replay by typing one of the following 
keys : 

SPACE stop replaying after the next character or puck press. 

CR stop replaying after a carriage return in I command or 

after next command if not in I command. 

LF stop replaying after next command. 

INS begin replaying and stop when one of the above keys is 

typed. 
DEL exit replay mode. 

If no DEL key is typed, the Editor automatically exits from 

replay mode when the end of the transcript is reached. Once you 

have exited replay mode you can begin editing normally, but we 

suggest that you Quit-Update as soon as possible. 
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1 . Introduction . 

PERQ Pascal is an upward-compatible extension of the programming 
language Pascal defined in PASCAL User Manual and Report [JW74]. This 
document describes only the extensions to Pascal. Refer to PASCAL 
User Manual and Report for a fundamental definition of Pascal. This 
document uses the BNF notation used in PASCAL User Manual and Report . 
The existing BNF is not repeated but is used in the syntax definition 
of the extensions. The semantics are defined informally. 

These extensions are designed to support the construction of 
large systems programs. A major attempt has been made to keep the 
goals of Pascal intact. In particular, attention is directed at 
simplicity, efficient run-time implementation, efficient compilation, 
language security, upward-compatibility, and compile-time checking. 

These extensions to the language are derived from the BSI/ISO 
Pascal Standard [BSI791, the UCSD Workshop on Systems Programming 
Extensions to the Pascal Language [UCSD791 and, most notably, Pascal* 
[P*]. 
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2. Declarations 

You must declare all data items in a Pascal program, To declare a 

data item, specify the identifier and then what it represents. 

2. 1 Identifiers 

PERQ Pascal permits the inclusion of the underscore character "_" 
as a significant character in identifiers. 

2.2 Declaration Relaxation 

The order of declaration for labels, constants, types, variables, 
procedures and functions has been relaxed. These declaration sections 
may occur in any order and any number of times. It is required that 
an identifier be declared before it is used. Two exceptions exist to 
this rule: 

1) Pointer types may be forward referenced as long as the 
declaration occurs within the same type-definition-part, and 

2)Procedures and functions may be predeclared with a forward 
declaration . 

The new syntax for the declaration section is: 

<block> ::= declaration partXstatement part> 

declaration part> ::= <declaration> j 
<declaration><declaration part> 

<declaration> ::= <empty> ! 

<import declaration part> S 

<label declaration part> | 

<constant definition part> ' 

<type definition part> i 

Cvariable declaration part> ! 

<procedure and function declaration part> 

Note: See "IMPORTS Declaration" in this document. 



2.3 Files 

PERQ Pascal permits the use of files as the component type of 
arrays, pointers and record fields. 
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3. Numbers 

3.1 Whole Numbers 

Single precision whole numbers are of the predefined type 
INTEGER. They occupy 16 bits (15 bits and a sign bit) and range in 
value from -32768 to +32767. Whole numbers of the predefined type 
LONG are double precision. They occupy 32 bits (31 bits and a sign 
bit) and- range in value from -2147483648 to +2147483647. Arithmetic 
operations and comparisons are defined for both single and double 
precision whole numbers. See the section "Extended Constants" for a 
discussion of single and double precision constants. 

3.2 Floating Point Numbers 

PERQ Pascal floating point numbers (type REAL) occupy 32 bits and 
conform to the IEEE floating point format. See [FP80]. Positive 
values range from approximately 1 . 1754945e-38 to 3 . 402823e+38 ' and 
negative values range from approximately -1 . 1754945e-38 to 
—''* 402823^+38 « Arithmetic operations and comparisons are defined for 
floating point numbers. 

3-3 Type Coercion Intrinsics 

The STRETCH intrinsic can be used to explicitly convert a single 
precision whole number into a double precision whole number. The 
SHRINK intrinsic will convert double precision into single precision, 
provided that the value of the double precision number is within the 
legal range of single precision. If it is not, a runtime error v/ill 
occur. The FLOAT intrinsic will convert a single precision whole 
number into a floating point number. TRUNC and ROUND will convert a 
floating point number into a single precision whole number, provided 
that the value of the floating point number is within the legal range 
of single precision. If not, a runtime error occurs. There is no way 
to convert a floating point number into a double precision whole 
number or vice versa. 
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For example: 



VAR R 
L 



real ; 
long; 
integer ; 



R 


: = 


FLOAT(I); 


I 


~ 


TRUNC(R) ; 


I 


= 


ROUND(R); 


L 


; = 


STRETCH(I) 


I 


: = 


SHRINK(L); 



3.4 Assignment Compatibility 
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4. Extended Constants 

4.1 Whole Number Constants 

Unsigned octal whole number (INTEGER or LONG) constants are 
supported as are decimal constants. Octal constants are indicated by 
a '#' preceding the number. 

The syntax for an unsigned integer is: 

<unsigned integer> ::r <unsigned decimal integer> | 
<unsigned octal integer> 

<unsigned decimal integer> ::= <digit>{<digit>} 

<unsigned octal integer> ::= #<ogit>{<ogit>} 

<digit> ::=0!1!2!3!4!5!6!7!8I9 

<ogit> ::= ! 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 

NOTE: Unsigned constants do not imply unsigned arithmetic. For 
example, #177777 has the value -1, not +65535. 

4.2 Single and Double Precision Constants 

A constant in the range -32768 to +32767 (or in the range 
-#177777 to +177777, if expressed in octal) is considered single 
precision (an INTEGER). Constants exceeding this range are considered 
double precision (LONG) . The maximums for double precision constants 
are -2147483648 (or -#37777777777) and +2147483647 (or +#37777777777). 

4.3 Constant Expressions 

PERQ Pascal extends the definition of a constant to include 
expressions which may be evaluated at compile-time . Constant 
expressions support the. use of the arithmetic operators +, -, * ¥ DIV, 
MOD and /, the logical operators AND, OR and NOT, the type coercion 
functions CHR, ORD and RECAST, the WORDSIZE intrinsic, and previously 
defined constants. (See "WordSize" in this manual and RECAST under 
"Type Compatibility", also in this manual.) All logical operations are 
performed as full 16-bit operations. 
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The new syntax for constants is: 

<constant> ::= <string constant> ' <constant expression> 

<constant expression> ::= <csimple constant expression> | 
<constant expression> <relational operator> 
<csimple constant expression> 

<relational operator> ::=='<>'<!<=!>!>= 

<simple constant expression> ::= <cterm> ! <sign><cterm> i 

<simple constant expressionXadding operator><cterm> 

<adding operator> ::r + \ - | OR 

<sign> : := + | - 

<cterm> ::= <cfactor> | 

<cterm>< multiplying operator ><c facto r> 

<multiplying operator> ::=*!/! DIV i MOD ! AND 

<cfactor> ::= <unsigned constant> , 

( <constant expression> ) ' NOT <cfactor> ', 

CHR(<constant expression>) j 

ORD(<constant expression>) j 

RECAST(<constant expression> ,<type identifier^ i 

WORDSIZE(<name>) 
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5. Type Compatibility 

PERQ Pascal now supports strict type compatibility as defined by 
the BSI/ISO Pascal Standard [BSI791 , with one addition; Any two 
strings, regardless of their maximum static lengths, are considered 
compatable . 

5.1 Type Coercion - RECAST 

The function RECAST converts the type of an expression from one 
type to another type when both types require the same amount of space. 
RECAST, like the standard functions CHR and ORD, is processed at 
compile-time and thus does not incur run-time overhead. The function 
takes two parameters: the expression and the type name for the result. 
Its declaration is: 

function RECAST( value :expression_type ; T:result_type_name) :T; 

The following is an example of its use: 

program RecastDemo; 

type color = (red, blue, yellow, green); 

var C: color; I: integer; 

begin 

I := 0; 

C := RECASTCI, color); { C := red; } 

end . 

Note that RECAST does not work correctly for all combinations of 
types; use the RECAST function sparingly and always scrutinize the 
results. Generally, only the following conversions- produce expected 
results : 

- longs, reals, and pointers to any other type 

- arrays and records to either arrays or records 

- sets of 0..n to any other type 

- constants to long or real 

- one word types (except sets) to one word types (except sets) 

Avoid the use of the RECAST function for any other conversion. 

WARNING: successful compilation does NOT imply that the RECAST 
function will execute correctly. 
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6. Extended Case Statement 

Two extensions have been made to the case statement: 

1) Constant subranges as labels. 

2) The "otherwise" clause which is executed 
if the case selector expression fails to 
match any case label. 

Case labels may not overlap. A compile-time error will occur if 
any label has multiple definitions. 

The extended syntax for the case statement is: 

<case statement> ::r CASE <expression> OF 

<case list element> {;<case list element>} END 

<case list element> ::= <case label list> : <statement> ! 
<empty> 

<case label list> ::= <case label> {,<case label>} 

<case label> ::= <constant> [ . ,<constant>] { OTHERWISE 

If the selector expression is not in the list of case labels and 

no OTHERWISE label is used, then the case statement is a no-op. This 

is different from PASCAL as defined by the PASCAL User Manual and 

Report, which suggests that this be a fault. 
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7. Control Structures 

7. 1 EXIT Statement 

The procedure EXIT is provided to allow forced termination of 
procedures or functions. The EXIT statement may be used to exit from 
the current procedure or function or from any of its parents. The 
procedure takes one parameter: the name of the procedure or function 
to exit from. Note that the use of an EXIT statement to return from a 
function can result in the function returning undefined values if no 
assignment to the function identifier is made prior to the execution 
of the EXIT statement. Below is an example use of the EXIT statement: 

program ExitExample( input , output) ; 
var Str : string; 

procedure P; 

begin 

read In (Str) ; 

writeln( Str ) ; 

•? -P Q+- *» _ II Tin -io io +- V> a f i rof 1 -inpll *- V\ £4 rs 

ex it (Ex it Ex am pie) 
end ; 

begin 

P; 

while Str <> "Last Line" do 

begin 

readln(Str) ; 

writeln(Str ) 

end 

end . 

If the above program is supplied with the following input: 

This is the first line 
This is another line 
Last Line 

the following output would result: 

This is the first line 

If the procedure or function to be exited has been called 
recursively, then the most recent invocation of that procedure will be 
exited. 

WARNING: The parameter to EXIT can be any procedure or function name. 

- 9 - 



PERQ Pascal Extensions 



04 Feb 82 



If the specified routine is not on the call stack, the PERQ 
will crash. 
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8. Sets 

PERQ Pascal supports all of the constructs defined for sets in 
Chapter 8 of PASCAL User Manual and Report [JW74]. Space is allocated 
for sets in a bit-wise fashion — at most 255 words for a maximum set 
size of 4,080 elements. If the base type of a set is a subrange of 
integer, that subrange must be within the range 0..4079, inclusively. 
If the base type of a set is a subrange of an enumerated type, the 
cardinal number of the largest element of the set must not exceed 
4,079. 
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9. Record Comparisons 

PERQ Pascal supports comparison of records with one restriction 
No portion of the records can be packed. For example, 

program P( input , output) ; 
var 

R1,R2 : record 

RealPart : integer; 

Imagine : integer; 
end ; - 
begin 

R1. RealPart :- 1; R1. Imagine := 2; 
R2. RealPart := 1; R2. Imagine :r 2; 
if R1 = R2 then writeln( f Records equal 1 ); 
end . 

will produce as output 

'Records equal 1 
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10. Strings 

PERQ Pascal includes a string facility which provides variable 
length strings with a maximum size limit imposed upon each string. 
The default maximum length of a STRING variable is 80 characters. 
This may be overridden in the declaration of a STRING variable by 
appending the desired maximum length (must be a compile-time constant) 
within square brackets after the reserved type identifier STRING. 
There is an absolute maximum of 255 characters for all strings. The 
following are example declarations of STRING variables: 

Line : STRING; { defaults to a maximum length of 80 

characters } 

ShortStr : STRING[12]; { maximum length of ShortStr 

is 12 characters } 

Assignments to string variables may be performed using the 
assignment statement or by means of a READ statement. Assignment of 
one STRING variable to another may be performed as long as the dynamic 
length of the source is within the range of the maximum length of the 
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same . 

The individual characters within a STRING may be selectively read 
and written. The characters are indexed starting from 1 through the 
dynamic length of the string. For example: 

program Str Ex ample ( input , out put) ; 
var Line : string[25]; 
Ch : char; 

begin 

Line:= f this is an example. 1 ; 

LineC 1 ] := 'T' ; { Line now begins with upper case T } 

Ch:=Line[5l; { Ch now contains a space } 

end . 

A STRING variable may not be indexed beyond its dynamic length. 
The following instructions, if placed in the above program, would 
produce an "invalid index" run-time error: 

Line:=M2345 ? ; 
Ch:=Line[6]; 

STRING variables (and constants) may be compared regardless of 
their dynamic and maximum lengths. The resulting comparison is 
lexicographical according to the ASCII character set. The full 8 bits 
are compared; hence, the ASCII Parity Bit (bit 7) is significant for 
lexical comparisons. 
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A STRING variable, with maximum length N, can be conceived as 
having the following internal form: 

packed record DynLength : 0..255; ( the dynamic length } 
Chrs: packed array [1..N] of char; 
end; { the actual characters go here } 

10.1 LENGTH Function 

The predefined integer function LENGTH is provided to return the 
dynamic length of a string. For example: 

program Len Ex ample ( input , output) ; 
var Line:string; 
Len :integer ; 
begin 

Line:= T This is a string with 35 characters 1 ; 
Len:=length(Line) 
end . 

will assign the value 35 into Len. 
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1 1 . Generic Types 



Generic types are general forms of more specific types. PERQ 
Pascal provides two predefined generic types: 

1) Pointers 

2) Files 

11.1 Generic Pointers 

Generic pointers provide a tool for generalized pointer handling. 
Variables of type POINTER can be used in the same manner as any other 
pointer variable with the following exceptions: 

1) Since there is no notion of type associated with the 
reference variable of a generic pointer, generic pointers 



2) Generic pointers cannot be used as an argument to NEW or 

DISPOSE. 



3) Any pointer type can be passed to a generic pointer 
parameter. To make use of a generic pointer, RECAST should 
be used to convert the pointer to some usable pointer type. 
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The following is a sample program utilizing generic pointers: 

program P( input , output) ; 
type 

Ptrlnt = "integer; 

PAOfChar = packed array[1..2] of char; 

PtrPAOfChar = "PAOfChar; 
var 

I : Ptrlnt; 

C : PtrPAOfChar; 

procedure Prod(GenPtr : pointer); 

var W : PtrPAOfChar; 

begin 

W := recast(GenPtr , PtrPAOfChar) ; 

writeln(lT[1],vr[2]) 
end ; 

begin 

new(I); 

I" := 16961; { First byte = 'A 1 , second = f B f } 

Prod (I) ; 

new( C) ; 

CT[1] := 'C; 

C~[2] := •D»; 

Prod (C) ; 

end . 



will produce output 



AB 
CD 



11.2 Generic Files 

Generic files have very restricted usage. Their purpose is to 
provide a facility for passing various types of files to a single 
procedure or function. Generic files may only appear as routine VAR 
parameters. Their type is FILE. They can be used in only two ways: 

1) Passed as a parameter to another generic file parameter , or 

2) As an argument to the LOADADR intrinsic. 
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The following examples show two ways of using generic files: 

program P; 
type 

FOflnt = file of integer; 
var 

F : text; 

F2 : file of boolean; 

procedure ProcKvar GenFile : file); 
var 

UseGenFile : record 

case boolean of 

true : (FileOf Interest : "FOflnt); 
false : (Offset : integer ; 

Segment : integer); 
end ; 
begin 

loadAdr (GenFile) ; 
storexpr ( UseGenFile . Offset) ; 
storexpr (UseGenFile .Segment) ; 
{ Now FileOf Interest can be used } 



end ; 

procedure Proc2(var GenFile : file); 
const 

STDW = 183; 
var 

FileOf Interest : "FOflnt; 
begin 

loadAdr(FileOf Interest) ; 
loadAdr(GenFile) ; 
InLineByte(STDW) ; 
{ Now FileOf Interest can be used } 



end ; 



begin 
Prod(F) ; 
Proc1(F2); 
Proc2(F) ; 
Proc2(F2); 
end . 
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12. Procedure/Function Parameter Types 

12.1 Parameter Lists 

PERQ Pascal permits, but does not require, the parameter list of 
procedures and functions which have been forward declared to be 
repeated at the site of the actual declaration. If given, the 
parameter list must match the previous declaration or a compilation 
error will occur. For redeclaration of function parameters, both the 
parameter list and the function type must be repeated. 

12.2 Function Result Type 

PERQ Pascal functions may return any type, with the exception of 
type FILE. 

12.3 Procedures and Functions as Parameters 

PERQ Pascal supports passing procedures and functions as 
parameters to other procedures or functions, as described by. the 
BSI/ISO Pascal Standard [BSI79]. 

You must put the full description of the procedure parameter in the 
routine header (just as if it was defined by itself). For example: 

Procedure EnumerateAll (directory: String; Function for each one 

(filename: String): boolean; all :boolean) ; 

Note that if the procedure is forward declared or in an export 
section, the routine header for this procedure cannot be repeated 
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13. Modules 

The module facility provides the ability to encapsulate 
procedures, functions, data and types, as well as supporting separate 
compilation. Modules may be separately compiled, and intermodule type 
checking will be performed as part of the compilation process. Unless 
an identifier is exported from a module, it is local to that module 
and cannot be used by other modules. Likewise all identifiers 
referenced in a module must be either local to the module or imported 
from another module. 

Modules do not contain a main statement body. A program is a 
special instance of a module and conforms to the definition of a 
program given by the PASCAL User Manual and Report CJW74]. Only a 
program may contain a main body, and every executable group of modules 
must contain exactly one instance of a program. 

Exporting allows a module to make constants, types, variables, 
procedures and functions available to other modules. Importing allows 
a module to make use of the EXPORTS of other modules. 

U±ODciX CQriS vein UJ5 , uypes, VciridDlcS , yiuCcQuico duu xUiiu^aGuS v- an 

be declared by a module to be private (available only to code within 
the module) or exportable (available within the module as well as from 
any other module which imports them) . 

Modules which contain only type and constant declarations cause 
no run-time overhead; making them ideal for common declarations. It 
should also be noted that such modules may not be compiled (as errors 
will be produced), however they may be successfully imported. 

131 IMPORTS Declaration 

The IMPORTS Declaration specifies the modules which are to be 
imported into a module. The declaration includes the name of the 
module to be imported and the file name of the source file for that 
module. When compiling an import declaration, the source file 
containing the module to be imported must be available to the 
compiler. 

Note: If the module is composed of several INCLUDE files, only those 
files from the file containing the program or module heading through 
the file which contains the word PRIVATE, must be available. (See 
"Compiler Switches" in this manual.) 

The syntax for the IMPORTS declaration is: 
<import declaration part> ::= IMPORTS <module name) FROM <file name); 
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13.2 EXPORTS Declaration Section 

If a program or module is to contain any exports, the EXPORTS 
Declaration section must immediately follow the program or module 
heading. The EXPORTS Declaration section is comprised of the word 
EXPORTS followed by the declarations of those items which are to be 
exported. These definitions are given as previously specified with 
one exception: procedure and function bodies are not given in the 
exports section. Only forward references are given. (See 
"Declaration Relaxation" in this manual.) (See Chapter 11.2 in the 
"PASCAL User Manual and Report" [JW74].) The inclusion of "FORWARD;" 
in the EXPORTS reference is omitted. 

The EXPORTS Declaration section is terminated by the occurrence 
of the word PRIVATE. This signifies the beginning of the declarations 
which are local to the module. The PRIVATE Declaration section must 
contain the declarations and bodies for- all procedures and functions 
defined in the EXPORTS Declaration section. 

If a program is to contain no EXPORTS Declaration section, the 
inclusion of PRIVATE following the program heading is optional 
(PRIVATE is assumed). (Note: A module with no EXPORTS would be 
useless, since its contents could never be referenced -- it only makes 
sense for a program not to have any EXPORTS.) 

The new syntax for a unit of compilation is: 

<compilation unit> ::= <module> ! <program> 

<program> ::= <program headingXmodule bodyXstatement part>. 

<rnodule> ::= <module headingXmodule body>. 

<program heading> ::= PROGRAM <identifier> ( <file identified 
{, <file identifier^) ; 

<module heading> ::= MODULE <identifier> ; 

<module body> ::= EXPORTS declaration part> PRIVATE 

declaration part> | PRIVATE declaration part> ! 
declaration part> 
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14.0 Exceptions 

PERQ Pascal provides an exception handling facility. Exceptions 
are typically used for error conditions. There are three steps to 
using an exception: 

1) The exception must be declared. 

2) A handler for the exception must be defined. 

3) The exception must be raised. 

An exception is declared by the word EXCEPTION followed by its 
name and optional list of parameters. For example: 

EXCEPTION DivisionByZeroC Numerator : integer); 

Exceptions can be declared anywhere in the declaration portion of a 
program or module. 

The second step is to specify the code to be executed when the 

the same name and parameter types as the declared exception, for 
example: 

HANDLER DivisionByZeroC Top : integer); 
<block> 

(See "Declaration Relaxation" in this document for a definition of 
<block>.) Essentially, a handler looks like a procedure with the word 
HANDLER substituted for the word PROCEDURE. Handlers may appear in 
the same places procedures are allowed, with one difference. Handlers 
cannot be global to a module (they may, however, be global to the main 
program) . The number and type of parameters of a handler must match 
those of the corresponding exception declaration but the names of the 
parameters may be different. Multiple handlers can exist for the same 
exception as long as there is only one per name scope. The exception 
must be declared before its handler(s). 

Raising an exception is analogous to a procedure call. The word 
RAISE appears before the name and parameters of -the exception, for 
example : 

RAISE DivisionByZero(N) ; 

causes the appropriate handler to execute. The appropriate handler 
is determined by the current subprogram calling sequence. The 
run-time stack is searched until a subprogram containing a handler (of 
the same name) is found. The search starts from the subprogram which 
issues the RAISE. 
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For example: 

program ExampleException ; 

exception Ex; 

handler Ex; 
begin 

writeln( f Global Handler for" exception Ex 1 ); 
end ; 

procedure Prod; 
begin 
raise Ex; 
end ; 

procedure Proc2; 
handler Ex; 

begin 

writeln( ' Local Handler for exception Ex 1 ) 

end ; 
begin 
raise Ex; 
Prod; 
end ; 

begin 
raise Ex; 
Proc2; 
Prod ; 
end . 

produces the following output: 

Global Handler for exception Ex 
Local Handler for exception Ex 
Local Handler for exception Ex 
Global Handler for exception Ex 



Handlers which are already active are not eligible for 
reactivation. In this case the search continues down the run-time 
stack until a non-active handler is found. A handler cannot, 
therefore, invoke itself by raising the same exception it was meant to 
handle. If a recursive procedure contains a handler, each activation 
of the procedure has its own eligible handler. 
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If an exception is raised for which no handler is defined or 
eligible, the system catches the exception and invokes the debugger. 
A facility is provided to allow the user to catch such exceptions 
before the system does. Handlers can be defined for the predefined 
exception ALL: 

EXCEPTION ALL(ES,ER,PStart,PEnd : integer); 

where 

1) ES is the system segment number of the exception, 

2) ER the routine number of the exception, 

3) P.Start the stack offset of the first word of the exception's 
original parameters and, 

4) PEnd the stack offset of the word following the original 
parameters. 

Any raised exception that does not have an eligible handler in 
the same or suceeding level (of the calling sequence) , in which an ALL 
handler is defined, is caught by that ALL handler. The four integer 
parameter values are calculated by the system and supplied to the ALL 
handler. Extreme caution should be used when defining an ALL handler, 
as the handler will also catch system exceptions. All cannot be 
raised explicitly. The ability to define ALL handlers is intended for 
"systems hackers" only. 

The operating system provides several default handlers. 
Information on these handlers can be found in the "Program System" and 
"Module Except" descriptions in the Operating System Manual. 

Since exceptions are generally used for serious errors, careful 
consideration should be given as to whether or not execution should be 
resumed after an exception is raised. When a handler terminates, 
execution resumes at the place following the RAISE statement. The 
handler can, of course, explicitly dictate otherwise. The EXIT and 
GOTO statements may prove useful here (See "Control Structures" in 
this manual . ) 
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15.0 Dynamic Space Allocation and Deallocation 

The PERQ Pascal Compiler supports the dynamic allocation 
procedures NEW and DISPOSE defined on page 105 of PASCAL User Manual 
and Report [JW?4], along with several upward compatible extensions 
which permit full utilization of the PERQ memory architecture. 

There are two features of PERQ's memory architecture which 
require extensions to the standard allocation procedures. First, 
there are situations which require particular alignment of memory 
buffers, such as 10 operations. Second, PERQ supports multiple data 
segments from which dynamic allocation may be performed. This 
facilitates groupi-ng data together which are to be accessed together, 
which may improve PERQ's performance due to improved swapping. Data 
segments are multiples of 256 words in size and are always aligned on 
256 word boundaries. For further information of the memory 
architecture and available functions see the documentation on the 
memory manager . 

15.1 NEW 

If the standard form of the NEW procedure call is used: 

NEW(Ptr{,Tag1, . ..TagN}) 

memory for Ptr will be allocated with arbitrary alignment from the 
default data segment. 

The extended form of the NEW procedure call is: 

NEW( Segment, Alignment, Ptr { , Tag 1 , . . .TagN}) 

Segment is the segment number from which the allocation is to be 
performed. This number is returned to the user when creating a new 
data segment. The value is used to indicate the default data 
segment . 

Alignment specifies the desired alignment; Any power of 2 to 256 
(2**0 through 2**8) is permissable. Do not use zero to specify the 
desired alignment. 

If the extended form of NEW is used, both a segment and alignment 
must be specified; there is no form which permits selective inclusion 
of either characteristic. 

If the desired allocation from any call to NEW cannot be 
performed, a NIL pointer is usually returned. However, if memory is 
exhausted, the FULLMEM0RY exception may be raised. If the call to NEW 
fails and raises FULLMEM0RY, the user program will abort unless it 
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includes a handler for FULLMEMORY. 



15.2 DISPOSE 

DISPOSE is identical to the definition given in PASCAL User 
Manual and Report [JW74]. Note that the segment and alignment are 
never given to DISPOSE, only the pointer and tag field values. 
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16- Single Precision Logical Operations 

The PERQ Pascal compiler supports a variety of single precision 

(INTEGER) logical operations. The operations supported include: and, 

inclusive or, not, exclusive or, shift and rotate. The syntax for 

their use resembles that of a function call; however the code is 

generated inline to the procedure (hence there is no procedure call 
overhead associated with their use) . The syntax for the logical 

functions are described in the following sections. 

16.1 And 

Function LAND(Val 1 , Val2: integer): integer; 
LAND returns the bitwise AND of Val 1 and Val2. 

16.2 Inclusive Or 

Function L0R(Val 1 , Val2: integer): integer; 
LOR returns the bitwise INCLUSIVE OR of Val1 and Val2. 

16.3 Not 

Function LN0T(Val: integer): integer; 
LNOT returns the bitwise complement of Val. 

16.4 Exclusive Or 

Function LX0R(Val 1 , Val2: integer ) : integer; 
LXOR returns the bitwise EXCLUSIVE OR of Val1 and Val2. 

16.5 Shift 

Function SHIFT(Value, Distance: integer): integer; 

SHIFT returns Value shifted Distance bits. If Distance is 
positive, a left shift occurs, otherwise, a right shift occurs. When 
performing a left shift, the Least Significant Bit is filled with a 0, 
and likewise when performing a right shift, the Most Significant Bit 
is filled with a 0. 
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16.6 Rotate 

Function ROTATECValue , Distance: integer): integer; 

ROTATE returns Value rotated Distance bits. If Distance is 
positive a right rotate occurs, otherwise a left rotate occurs. Note 
that the direction of the ROTATE is the opposite of SHIFT. 
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17- Input/Output Intrinsics 

PERQ's Input/Output intrinsics vary slightly from PASCAL User 
Manual and Report [JW74]. 

17.1 REWRITE 

The REWRITE procedure has the following form: 

REWRITE(F,Name) 

F is the file variable to be associated with the file to be written 
and Name is a string containing the name of the file to be created. 
EOF(F) becomes true and a new file may be written. The only 
difference between the PERQ and PASCAL User Manual and Report [ JW74] 
REWRITE is the inclusion of the filename string. 

17.2 RESET 

The RESET procedure has the following form: 

RESET(F,Name) 

F is the file variable to be associated with the existing file to be 
read and Name is a string containing the name of the file to be read. 
The current file position is set to the beginning of file, i.e. RESET 
assigns the value of the first element of the file to F~ . EOF(F) 
becomes false if F is not empty; otherwise, EOF(F) becomes true and 
F~ is undefined . 

17.3 READ/READLN 

PERQ Pascal supports extended versions of the READ and READLN 
procedures defined by PASCAL User Manual and Report [JW74]. Along 
with the ability to read longs, integers ( and subranges of integers), 
reals and characters, PERQ Pascal also supports reading booleans, 
packed arrays of characters, and strings. 

The strings TRUE and FALSE (or any unique abbreviations) are 
valid input for parameters of type boolean. Mixed upper and lower 
case are permissible. 

If the parameter to be read is a PACKED ARRAY[m..n] of CHAR, then 
the next n-m+1 characters from the input line will be used to fill the 
array. If there are fewer than n-m+1 characters on the line, the 
array will be filled with the available characters, starting at the 
m'th position, and the remainder of the array will be filled with 

- 28 - 



PERQ Pascal Extensions 04 Feb 82 



blanks. 

If the parameter to be read is of type STRING, then the string 
variable will be filled with as many characters as possible until 
either the end of the input line is reached or the maximum length of 
the string is met. If there are not enough characters on the line to 
fill the entire string, the dynamic length of the string will be set 
to the number of characters read. 

17.4 WRITE/WRITELN 

PERQ Pascal provides many extensions to the WRITE and WRITELN 
procedures defined by PASCAL User Manual and Report [JW?4]. Due to 
the scope of these extensions, the WRITE and WRITELN procedures are 
completely redefined below: 

1. write(p1 , . . . ,pn) stands for write(output ,p1 , . . . ,pn) 

2. write(f ,p1 , . . . ,pn) stands for BEGIN write(f,p1); ... 

write(f,pn) END 

3. writeln(p1 , . . . ,pn) stands for wr iteln(output ,p1 , . . .pn) 

4. writeln(f ,p1 , . . . ,pn) stands for BEGIN write(f,p1); ... 

write(f,pn); writeln(f) END 

5. Every parameter pi must be of one of the forms: 

e 

e : e1 

e : e1 : e2 

where e, el and e2 are expressions. 

6. e is the VALUE to be written and may be of type CHAR, long, 
integer (or subrange of integer), real, boolean, packed 
array of char, or string. For parameters of type boolean, 
one of the strings TRUE, FALSE or UNDEF will be written; 
UNDEF is written if the internal form of the expression is 
neither nor 1 . 

7. e1, the minimum field width, is optional. In general, the 
value e is written with e1 characters (with preceding 
blanks). With one exception, if el is smaller than the 
number of characters required to print the given value, more 
space is allocated; if e is a packed array of char, then 
only the first e1 characters of the array will be printed. 
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18* Miscellaneous Intrinsics 

18.1 StartIO 

STARTIO is a special QCode (See the PERQ QCode Reference Manual) 
which is used to initiate input/output operations to raw devices. 
PERQ Pascal supports a procedure, STARTIO, to facilitate generation of 
the correct QCode sequence for I/O programming. The procedure call 
has the following form: 

STARTIO(Unit) 

where Unit is the hardware unit number of the device to be activated. 

18.2 RasterOp 

RasterOp is a special QCode which is used to manipulate blocks of 
memory of arbitrary sizes. It is especially useful for creating and 
modifying displays on the screen. RasterOp modifies a rectangular 
area (called the "destination") of arbitrary size (to the bit). The 
picture drawn into this rectangle is computed as a function of the 
previous contents of the destination and the contents of another 
rectangle of the same size called the "source". The functions 
performed to combine the two pictures are described below. 

To allow RasterOp to work on memory other than that used for the 
screen bitmap, RasterOp has parameters that specify the areas of 
memory to be used for the source and destination: a pointer to the 
start of the memory block and the width of the block in words. Within 
these regions, the positions of the source and destination rectangles 
are given as offsets from the pointer. Thus position (0,0) would be 
at the upper left corner of the region, and, for the screen, 
(767, 1023) would be the lower right. The operating system module 
Screen exports useful parameters. 
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The compiler supports a RASTEROP intrinsic which may be used to 
invoke the RasterOp QCode. The form of this call is: 

RASTEROPCFunction, 
Width, 
Height, 

Destination-X-Position , 
Destination~Y-Position , 
Destination-Area-Line-Length , 
De s t in a t ion -Memory- Pointer , 
Source-X-Position , 
Source-Y-Position , 
Source-Area-Line-Length , 
Source -Memory- Pointer) 

Note: the values for the destination precede those for the source. 

The arguments to RasterOp are defined below: 

"Function" defines how the source and the destination are to be 
combined to create the final picture stored at the 
destination. The RasterOp functions are as follows: (Src 
represents the source and Dst the destination) : 

Function Name Action 



RRpl Dst gets Src 

1 RNot Dst gets NOT Src 

2 RAnd Dst gets Dst AND Src 

3 RAndNot Dst gets Dst AND NOT Src 

4 ROr Dst gets Dst OR Src 

5 ROrNot Dst gets Dst OR NOT Src 

6 RXor Dst gets Dst XOR Src 

7 RXNor Dst gets Dst XNOR Src 

The symbolic names are exported by the file "Raster .Pas" . 

"Width" specifies the size in the horizontal ("x") direction of 
the source and destination rectangles (given in bits). 

"Height" specifies the size in the vertical ("y") direction of 
the source and destination rectangles (given in scan lines). 

"Destination-X-Position" is the bit offset of the left side of 
the destination rectangle. The value is offset from 
Destination-Memory-Pointer (see below). 
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"Destination-Y-Position" is the scan-line offset of the top of 
the destination rectangle. The value is offset from 
Destination-Memory-Pointer (see below). 

"Destination-Area-Line-Length" is the number of words which 
comprise a line in the destination region (hence defining 
the region's width). The appropriate value to use when 
operating on the screen is 48. The specified value must be 
a multiple of four (4) and within the range 4 through 48. 

"Destination-Memory-Pointer" is the 32-bit virtual address of the 
top left corner of the destination region (it may be a 
pointer variable of. any type). This pointer MUST be 
quad-word aligned, however. ( See "New" in this document 
for details on buffer alignment.) 

"Source-X-Position" is the bit offset of the left side of the 
source rectangle. The value is offset from 
Source-Memory-Pointer (see below) . 

"Source-Y-Position" is the scan-line offset of the top of the 

Source-Memory-Pointer (see below). 

"Source-Area-Line-Length" is the number of words which comprise a 
line in the source region (hence defining the region's 
width) . The appropriate value to use when operating on the 
screen is 48. The specified value must be a multiple of 
four (4) and within the range 4 through 48. 

"Source-Memory-Pointer" is the 32-bit virtual address of the top 
left corner of the source region (it may be a pointer 
variable of any type) . This pointer MUST be quad-word 
aligned, however. (See "New" in this document for details 
on buffer alignment.) 

18.3 WordSize 

The WordSize intrinsic returns the number of words of storage 
required for any item which has a size associated with it. This 
includes constants, types, variables and functions. The intrinsic 
takes a single parameter, the item whose size is desired, and returns 
an integer . 

Note: WordSize generates compile time constants, and hence may be used 
in constant expressions. 
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18.. 4 MakePtr 

The MakePtr intrinsic permits the user to create a pointer to a 
data type given a system segment number and offset. Its use is 
intended for those who are familiar with the system and are sure of 
what they are doing. The function takes three parameters. The first 
two are the system segment number and offset within that segment to be 
used in creating the pointer, respectively, given as integers. The 
last parameter is the type of the pointer to be created. MakePtr will 
return a pointer of the type named by the third parameter. 

Note: The next seven intrinsics, MakeVRD, InLineByte , InLineWord, 
InLineAWord, LoadExpr, LoadAdr and StorExpr, require that the user 
have knowledge of how the compiler generates code (which will not be 
discussed here). These intrinsics are intended for "system hacking", 
and are made available for those who know what they are doing. The 
programmer who wishes to experiment with these may find the QCode 
disassembler, QDIS, is very useful to determine if the desired results 
were produced. 

18.5 MakeVRD 

MakeVRD is used to load a variable routine descriptor for a 
procedure or function. (See "Routine Calls and Returns" for a 
description of LVRD and CALLV in the QCode Reference Manual.) The 
variable routine descriptor is left on the expression stack of the 
PERQ, and any further operations must be performed by the user.. This 
procedure takes one parameter, the name of the function or procedure 
for which the variable routine descriptor is to be loaded. The use of 
this intrinsic assumes that the programmer is familiar with QCode 
(primarily a "hackees" intrinsic). 

18.6 InLineByte 

InLineByte permits the user to place explicit bytes directly into 
the code stream generated by the compiler. This intrinsic is 
particulary useful for insertion of actual QCodes into a program. 
InLineByte requires one parameter, the byte to be inserted. The type 
of this parameter must be either integer or subrange of integer. 

18.7 InLineWord 

InLineWord permits the user to place explicit words directly into 
the code stream generated by the compiler. This intrinsic is 
particulary useful for insertion of direct QCodes into a program. 
InLineWord requires one parameter, the word to be inserted. This word 
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will be inserted immediately as the next two bytes of the code stream 
(no word alignment is performed). The type of this parameter must be 
either integer or subrange of integer. 

18.8 InLineAWord 

. InLineAWord permits the user to place explicit words directly 
into the code stream generated by the compiler. This intrinsic is 
particulary useful for insertion of direct QCodes into a program. 
InLineAWord requires one parameter, the word to be inserted. This 
word is placed on the next word boundary of the code stream. The type 
of this parameter must be either integer or subrange of integer. 

18.9 LoadExpr 

The LoadExpr intrinsic takes an arbitrary expression as its 
parameter and "loads" the value of the expression. The result of the 
"load" is wherever the particular expression type would normally be 
loaded (expression stack for scaiars, memory stack for sets, etc.). 

18. 10 LoadAdr 

The LoadAdr intrinsic loads the address of an arbitrary data item 
unto the expression stack. The parameter to LoadAdr, the item whose 
address is desired, may include array indexing, pointer dereferencing 
and field selections. The address which is left on the expression 
stack will be a virtual address if the parameter includes either the 
use of a VAR parameter or a pointer dereference; otherwise a 20-bit 
stack offset will be loaded. 



o 



18.11 StorExpr 

StorExpr stores the single word on top of the expression stack in 
the variable given as a parameter. The destination for the store 
operation must not require any address computation; the destination 
must be a local, intermediate or global variable; it must not be a VAR 
parameter; if it is a record, a field specification may be given. 

18.12 Float 

The Float intrinsic converts an integer into a floating point 
number . 
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18.13 Stretch 

The Stretch intrinsic converts a single precision integer to a 
double precision integer. 

18-15 Shrink 

The Shrink intrinsic converts a double precision integer to a 
single precision integer. If the double precision integer is outside 
the range of -32768 to +32767, a runtime error occurs. 
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19« Command Line and Compiler Switches 

19-1 Command Line 

The PERQ Pascal compiler is invoked by typing a compile command 
line to the PERQ Operating System. The syntax for the compile command 
line is : 

COMPILE [<InputFile>] [~ <0utputFile>] {</Switch>} . 

<InputFile> is the name of the source file to be compiled. The 
compiler searches for <InputFile>. If it does not find <InputFile>, 
it appends the extension ".PAS" and searches again. If <InputFile> is 
still not found, the user will be prompted for an entire command line. 
If <InputFile> is not specified, the compiler uses for <InputFile> the 
last file name remembered by the system. 

<0utputFile> is the name of the file to contain the output of the 
compiler. The extension ".SEG" will be appended to <0utputFile> if it 

is uuu diicduy prcacnw. hOuc oudu ii suuujjuufij.tr/ xo uOi/ oficCii icu , 

the compiler uses the file name from <InputFile>. Then, if the ".PAS" 
extension is present, it is replaced with the ".SEG" extension, else 
if the ".PAS" extension is not present, the ".SEG" extension is 
appended. If <0utputFile> already exists, it will be rewritten. 

</Switch> is the name of a compiler switch. All compiler 
switches specified on the command line must begin with the "/" 
character. Any number of switches may be specified, and if a switch 
is specified multiple times, the last occurrence is used. Also, if 
the /HELP switch is specified, the other information on the command 
line is ignored. The available switches are defined in the following 
sections . 

19.2 Compiler Switches 

PERQ Pascal compiler switches may be set either in a mode similar 
to the convention described on pages 100-102 of PASCAL User Manual and 
Report [JW74] or on the command line described above (see above 
Section , "Command Line"). The first form of compiler switches may be 
written as comments and are designated as such by a dollar sign 
character ($) as the first character of the comment followed by the 
switch (unique abbreviations are acceptable) and possibly sv/itch 
parameters. The second form is given after the input file 
specification in the command line preceded by the slash (/) character. 
The actual switches provided by the PERQ Pascal compiler, although 
similar in syntax, bear little resemblance to the switches described 
in PASCAL User Manual and Report [ JW74] . 
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The following sections describe the various switches currently 
supported by the PERQ Pascal Compiler. 

19.2.1 File Inclusion 

The PERQ Pascal compiler may be directed to include the contents 
of secondary source files in the compilation. The effect of using the 
file inclusion mechanism is identical to having the text of the 
secondary file(s) present in the primary source file (the primary 
source file is that file which the compiler was told to compile) . 

To include a secondary file, the following syntax is used: 

{$INCLUDE FILENAME} 

The characters between the "$INCLUDE" and the "}" are taken as the 
name of the file to be included (leading spaces and tabs are ignored). 
The comment must terminate at the end of the filename, hence no other 
options can follow the filename. 

If the file FILENAME does not exist, ".PAS" will be concatenated 
onto the end of FILENAME, and a second attempt will be made to .find 
the file. 

The file inclusion mechanism may be used anywhere in a program or 
module, and the results will be as if the entire contents of the 
include file were contained in the primary source file (the file 
containing the include directive) . 

Note: There is no form of this switch for the command line, it 
may only be used in comment form within a program. 

19.2.2 List Switch 

The List Switch controls whether or not the compiler generates a 
program listing of the source text. The default is to not generate a 
list file. The format for the List switch is: 

{$LIST <filename>} 

or 

/LIST [= <filename>] 

where <filename> is the name of the file to be written. The extension 
".LST" will be appended to <filename> if it is not already present. 
If <filename> is not specified, the compiler uses the source file 
name. If the ".PAS" extension is present, it is replaced with the 
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11 .LST" extension, else if the ".PAS" extension is not present, the 
".LST" extension is appended. Like the file inclusion mechanism, in 
the comment form of the switch, the filename is taken as all 
characters between the "$LIST" and the "}" (ignoring leading spaces 
and tabs); hence no other options may be included in this comment. 

With each source line, the compiler prints the line number, 
segment number, and procedure number. 

19.2.3 Range Checking 

This switch is used to enable or disable the generation of 
additional code to perform checking on array subscripts and 
assignments to subrange types. 

Default value: Range checking enabled 



$RANGE+ or /RANGE 
$RANGE- or /NORANGE 
$RANGE= 



If "$RANGE" is not 
assumed . 



enables range checking 

disables range checking 

resumes the state of range checking which 
was in force before the previous 
$RANGE-or $RANGE+ switch. 

followed by a "+" or "-" , ,then "+" is 



Note that programs compiled with range checking disabled will run 

slightly faster, but invalid indices will go undetected. Until a 

program is fully debugged, it is advisable to keep range checking 
enabled. 



19.2,4 Quiet Switch 

This switch is used to enable or disable the Compiler from 
displaying the name of each procedure and function as it is compiled. 
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Default value: Display of procedure and function names enabled 

$QUIET+ or /VERBOSE enables display of procedure and function 

names 

$QUIET- or /QUIET disables display of procedure and 

function names 

$QUIET= resumes the state of the quiet switch 

which was in force before the previous 

$QUIET- or $QUIET+ switch. 

if "$QUIET" is not followed by a "+" or "-" , then "+" is 
assumed . 

19.2.5 Symbols Switch 

This switch is used to set the number of symbol table swap blocks 
used by the Compiler. As the number of symbol table swap blocks 
increases, compiler execution time becomes shorter; however physical 
memory requirements increase (and the Compiler may abort due to 
insufficient memory). The format for this switch is: 

/SYMBOLS = <# of Symbol Table Blocks> 

Note: There is no comment form of this switch, it may only be used on 
a command line. 

The default number of symbol table blocks and the maximum number of 
symbol table blocks are both dependent on the size of memory. For 
systems with 256k bytes of main memory, the default number of symbol 
table blocks is 24 and the maximum number of symbol table blocks is 
32. Note that you can specify more than 32 symbol table blocks with a 
256k byte system, but performance usually degrades considerably. For 
systems with 512k or 1024k bytes of main memory, the default number of 
symbol table blocks is 200 and the maximum number of symbol table 
blocks is also 200. 



19.2.6 Automatic RESET/REWRITE 

The PERQ Pascal compiler automatically generates a RESET(INPUT) 
and REWRITE(OUTPUT) . This may be disabled if desired with the use of 
the AUTO switch. The format for this switch is: 
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Default value: Automatic initialization enabled 

$AUT0+ or /AUTO enables automatic initialization 

$AUT0- or /N0AUT0 disables automatic initialization 

If "$AUT0" is not followed by a "+" or "-" , then "+" is assumed. 

If the comment form of this switch is used, it must precede the 
BEGIN of the main body of the program. 

19«2.7 Procedure/Function Names 

The PERQ Pascal compiler generates a table of the procedure and 
function names at the end of the ".SEG" file, if so directed. This 
table may be useful for debugging programs. The format for this 
switch is: 

Default value: Name Table is generated 

$NAMES+ or /NAMES enables generation of the Name Table 

$NAMES- or /NONAMES disables generation of the Name Table 

If "$NAMES" is not followed by a "+" or "-" , then "-" is 
assumed . 

Note: currently two programs, the debugger and the disassembler, use 
the information stored in the Name Table. 

19.2.8 Version Switch 

The Version Switch permits the inclusion of a version string in 
the first block of the M .SEG" file. This string has a maximum length 
of 80 characters. Currently this string is not used by any other PERQ 
software, however, it may be accessed by user programs to identify 
M .SEG" files.. The format for this switch is: 

$VERSI0N <string> or /VERSION = <string> to set the Version 

string. 

When using the $VERSI0N form of the switch, the version string is 
terminated by the end of the comment or the end of the line. If the 
comment exceeds a single line, the remainder of the comment is 
ignored. If the /VERSION form is used, the version string is 
terminated by either the end of the command line or the occurrence of 
a V' character (hence a f / f may not appear in the version string). 
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19.2.9 Comment Switch 

The Comment Switch permits the inclusion of arbitrary text in the 
first block of the ".SEG" file. This string has a maximum length of 
80 characters. It is particularly useful for including copyright 
notices in ".SEG" files. The format for this switch is: 

$C0MMENT <string> or /COMMENT = <string> to set the comment 
string . 

When utilizing the $C0MMENT form of the switch, the comment text 

is terminated by the end of the comment or the end of the line. If 

the comment exceeds a single line, the remainder of the comment is 
ignored. 



19.2.10 Message Switch 

The Message Switch causes the text of the switch to be printed on 
the user's screen when the switch is parsed by the compiler. It has 
no effect on the compilation process. The format for this switch is: 

$MESSAGE <string> to print <string> on the console during 

compilation 

The message is terminated by the end of the comment or the end of 
the line. If the comment exceeds a single line, the remainder of the 
comment is ignored. 

Note: There is no command line form for this switch, it may only be 
used- in its comment form. 

19.2.11 Conditional Compilation 

The PERQ Pascal conditional compilation facility is implemented 
through the standard switch facility. There are three switches which 
are used for conditional compilations. The first is the $IFC switch, 
which has the following form: 

{$IFC <boolean expression> THEN} 

This switch indicates the beginning of a region of conditional 
compilation. If the boolean expression, evaluated at compile time, is 
true, the text to follow is included in the compilation. If the 
boolean expression evaluates to false, then the text which follows is 
not included . 
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The region of conditional compilation is terminated by the $ENDC 
switch : 

{$ENDC} 

Upon encountering the $ENDC switch, the state of compilation returns 
to whatever state was present prior to the most recent $IFC. 

The remaining switch is the $ELSEC switch, and it functions much 

in the same way as the else clause in an IF statement. If the boolean 

expression of the $IFC switch is true, then the $ELSEC text is 
ignored, otherwise it is included. 

If a $ELSEC switch is used, no $ENDC preceeds the $ELSEC; the 
$ELSEC signals the end of the $IFC region. A $ENDC is then used to 
terminate the $ELSEC clause. 

Conditional compilations may be nested. 

The following are two examples of the conditional compilation 
mechanism : 

Const CondSw = TRUE; 

PROCEDURE Test; 

begin 

{$IFC CondSw THEN} 

Writeln( ♦ CondSw is true*); 
{$ENDC} 
end { Test } ; 

TYPE Base = record i , j ,k :integer end; 
{$IFC WORDSIZE(Base) = 3 THEN} 

Cover = array[0..2] of integer 
{$ELSEC} 

Cover = array[0..10] of integer 
{$ENDC} 



» 



19.2.12 Errorfile Switch 

When the compiler detects an error in a program, it displays 
error information (file, error number, and the last two lines where 
the error occurred) on the screen and then requests whether or not to 
continue. The /ERRORFILE switch overrides this action. When you 
specify the switch and the compiler detects an error, the error 
information is written to a file and there is no query of the user, 
however, the compiler does display the total number of errors 
encountered on the screen. 
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The format for this switch is: /ERRORFILE [= <filename>] 

where <filename> is the name of the file to be written. The extension 

".ERR" will be appended to <filename> if it is not already present. 

If <filename> is not specified, the compiler uses the source file 

name. If the ".PAS" extension is present, it is replaced with the 

".ERR" extension, else if the ".PAS" extension is not present, the 
".ERR" extension is appended. 

The error file exists after a compilation if and only if you 
specify the /ERRORFILE switch and an error is encountered. If the 
file <filename> .ERR already exists from a previous compilation, it 
will be rewritten, or deleted in the case of no compiliation errors. 
This switch allows compilations to be left unattended. 

19.2.13 Help Switch 

The Help switch provides general information and overrides all 
other switches. The format is /HELP. 
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20.0 Quirks and Other Oddities 

The following are descriptions of known quirks and problems with 
the PERQ Pascal compiler. Future releases may correct these problems. 

1. FOR loops with an upper bound of greater than 
32,766 will never terminate. 

2. The last line of any PROGRAM or MODULE must end 
with a carriage return, or an "Unexpected End of 
Input" error occurs. 

3. Although unique abbreviations are accepted for 
switches, the following abbreviations cause 
compilation errors: 

Switch Bad Abbreviation 

$ELSEC $ELSE 

$ENDC SEND 

$IFC $IF 

$INCLUDE $IN 

4. Procedures and functions which are forward 
declared (this includes EXPORT declarations) and 
contain procedure parameters, may not have their 
parameter lists redeclared at the site of the 
procedure body. 

5. The compiler currently permits the use of an EXIT 
statement where the routine to be exited from is 
at the same lexical level as the routine 
containing the EXIT statement. For example: 

program Quirk; 

procedure ProcOne; 

begin 

end; 

procedure ProcTwo; 
begin 

exit(ProcOne) 
end ; 

begin 
ProcTwo 
end . 

If there is no invocation of the routine to be 

- 45 - 



PERQ Pascal Extensions 04. Feb 82 



exited on the run-time stack, the PERQ will hang 
and has to be re-booted. 

6. The filename specification given in IMPORTS 
Declarations must start with an alphabetic 
character. 

7. Record comparisons involving packed records 
(illegal comparisons) will not be caught unless 
the word PACKED appears explicitly in the record 
definition. For example, records with fields of 
user-defined type Foo , where Foo contains packed 
information, are considered comparable by the 
compiler when in actuality they are not. 

8. Reals and longs cannot be used together in an 
expression . 

9. The compiler will not detect an error in the 
definition or use of a set that exceeds set size 
limitations. If such a set is used, incorrect 
code will be generated. 

10. Many functions that exist for integers (e.g. 
LAND) are not implemented for longs. 

11. The RECAST intrinsic does not work with two-word 
scalers (for example, LONG) and arrays. 
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module AlignMemory 



AlignMemory - Allocated aligned buffers. 

J. P. Strait 29 Sep 81 . 

Copyright (C) Three Rivers Computer Corporation. 

Abstract : 

This module is used to allocate buffers which need to be aligned 
on boundaries that are multiples of 256 words. 

Version Number V1 . 1 
exports 

type AlignedBuffer = array[0..0] of array[0. . 255] of Integer; 
AlignedPointer r ~ AlignedBuffer ; 

procedure NewBuffer( var P: AlignedPointer; S, A: Integer ); 
exception BadAlignment( A: Integer ); 
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procedure NewBuffer( var P: AlignedPointer ; S, A: Integer ); 

Abstract: This procedure is used to allocate buffers which need 
to be aligned on boundaries that are multiples of 256 words. 
A new segment is allocated which is somewhat larger than the 
desired buffer size. The segment is set to be unmovable so 
that the alignment can be guaranteed. 

Parameters : 

P - Set to point to a new buffer which is aligned as 

desired. 
S - Desired size of the buffer in 2*56 word blocks. 
A - Alignment in 256 word blocks. That is, 1 means aligned 

on a 256 word boundary, 2 means a 512 word boundary, 

and so on . 

Errors: BadAlignment if A is less than one or greater than 256. 

BadSize (memory manager) if S is less than one or S+A-1 is 

greater than 256. Other memory manager exceptions raised by 
CreateSegment . 
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module AllocDisk; 

Written by CMU-people 

Copyright (C) 1980 Three Rivers Computer Corporation 

Abstract : 

Allocdisk allocates and deallocates disk pages. 

The partition has some number of contiguous pages on it. The 
number of pages in a partition is specified when the partition is 
created (using the Partition program). Segments can be created 
within a partition, e.g. segments may not span partitions. 

The entire disk can be thought of as a partition (the Root 
Partition) 

A DisklnformationBlock ( DisklnfoBlock or DIB) contains all the 
fixed information about a disk, including its partion names, 
locations and sizes. It also contains a table used to locate 
boot segments 

A disk can be 'mounted 1 which means that its root partition is 
known to the system as an entry in the DiskTable. 

A Partition Information Block ( PartlnfoBlock or PIB) contains all 
of the fixed information about a partition, 

A partition can also be 'mounted*, and this is usually done as 
part of mounting the disk itself. Partitions mounted are entries 
in the PartTable 

Within a partition, segments are allocated as doubly linked lists 
of pages 

The Free List of a segment is a doubly linked list of free pages 

This module maintains this list, as well as the DeviceTable and 
PartTable It contains procedures for mounting and dismounting 
disks and partitions, as well as allocating and deallocating 
space within a partition. 

When allocating pages, the module updates the PartlnfoBlock every 
MaxAllocs calls on AllocDisk 

Since the system may crash some time between updates, the 
pointers and free list size may not be accurate. 

When a partition is mounted, the pointers are checked to see if 
they point to .free pages. If not, the head of the pointer is 
found by looking at the "filler" word of the block the free head 
does point to (which presumably was allocated after the last 
update of PartlnfoBlock) . The filler word has a short pointer to 
the next "free" page, and forms a linked list to the real free 
list header. Likewise, if the Free tail does not have a next 
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pointer of 0, a deallocate is presumed to have been done since a 
PartlnfoBlock update, and NextAdr pointers are chased to find the 
real end of the Free List. 

Version Number V2.8 

{*#*******#**##*###} exports {*****#*********************} 

imports Arith from Arith; 
imports ReadDisk from ReadDisk; 



const 

MAXDISKS = 2 

MAXPARTITIONS = 10 

MAXPARTCHARS = 8 



{Floppy and HardDisk} 

{Maximum number of mounted partitions} 

{how many characters in a partition name} 



type 



PartString 
DeviceRecord 



= string[MAXPARTCHARS] ; 

= record {entry in the DeviceTable} 

InfoBlk: DiskAddr; {where the DisklnfoBlock is} 
InUse : boolean; {this DeviceTable entry is valid} 
RootPartition : PartString {name of this disk} 
end ; 



Part Record 



record 

PartHeadFree 

PartTailFree 

PartlnfoBlk 

PartRootDir 

PartNumOps 

PartNumFree 
PartlnUse 
PartMounted 
PartDevice 
PartStart 
PartEnd 
PartKind 
PartName 
end ; 



DiskAddr 
DiskAddr 
DiskAddr 
DiskAddr 
integer ; 



{po 
{po 
{po 
{do 
{ho 

la 
{HI 
{th 
{th 
{wh 
{Di 
{Di 
Type 

{n 



try ii 

inter 

inter 

inter 

inter 



FSBit32; 

boolean ; 

boolean ; 

integer ; 

DiskAddr ; 

DiskAddr ; 

Partition 

PartString {name of this p 



the Pa 
to Head 
to tail 
to Part 
to Root 
w many operat 
st update of 
NT of how man 
is entry in P 
is partition 
ich disk this 
sk Address of 
sk Ad dress of 
; {Root or Le 



rtTable} 

of Free List} 

of Free List} 
InfoBlock} 

Directory} 
ions done since 
PartlnfoBlock} 
y free pages} 
artTable is valid} 
is mounted} 

partition is in} 

1st page} 

last page} 
af} 
artition} 



var 

DiskTable 
PartTable 



: array [ 0. .MAXDISKS-1 ] of DeviceRecord; 
: array [ 1 . .MAXPARTITIONS] of PartRecord; 



procedure InitAlloc; {initialize the AllocDisk module, called during boot} 

procedure DeviceMount(disk : integer); {mount a disk} 

procedure DeviceDismount( disk : integer); {dismount a disk} 

function MountPartition(name : string) : integer; {mount a partion, 

return PartTable index} 
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^edure DismountPartition( name : string); {dismount a partition} 

inction FindPartition(name : string) : integer; {given a partion name, look 

for it in PartTable, return index} 

motion AllocDisk(partition : integer) : DiskAddr; {allocate a free page 

from a partition} 

-ocedure DeallocDisk( addr : DiskAddr); {return a page to the free list} 

-ocedure DeallocChain( f irstaddr ,lastaddr : DiskAddr; numblks : integer); 

{return a bunch of pages to free list} 

inction WhichPartition( addr : DiskAddr) : integer; {given a Disk Address, 

figure out which partition it is in} 

*ocedure DisplayPartitions ; {print the PartTable} 

[ception NoFreePartitions; 

Abstract: Raised when too many partitions are accessed at one 
time. The 

limit is MAXPARTITIONS. 

:ception BadPart(msg, partName: String); 

Abstract: Raised when there is something wrong with a partition. 
This 

means that the Scavenger should be run. 

Parameters: msg is the problem and partName is the partition 
name. Print 

error message as: WriteLn(»** ',msg, f for f , partName) ; 

[ception PartFulKpartName : String); 

Abstract: Raised when there are no free blocks in a partition to 
be 

allocated. This means that some files should be 
deleted and then the Scavenger should be run. 

Parameters: partName is the full partition 
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Procedure InitAlloc; Abstract Initialize the AllocDisk module 

Side Effects Sets Initialized to a magic number; sets all InUse 
and PartlnUse to false 



Procedure DeviceMount(disk : integer); 

Abstract: Mount the device specified by disk if not already 
mounted 

Parameters: Disk is a device; it should be zero for.HardDisk and 
1 for Floppy 

Environment: Expects DiskTable to be initialized 

Side Effects: Sets the DiskTable for device; loads PartTable with 
Part names on dev 

Errors: Error if no free partition slots in PartTable; 

NOTE: No mention is made if device has partitions with names 
same as those already loaded 



Procedure DisplayPartitions ; 

Abstract: Displays information about the current partitions on 
the screen 



Environment: Assumes PartTable and DiskTable set up; 
Calls: AddrToField; IntDouble, WriteLn; 

Procedure DeviceDismount(disk : integer); 

Abstract: Removes device disk (0 or 1) from DiskTable and removes 
all its partitions 

Parameters: Disk is a device (0= HardDisk; 1=Floppy) 
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Side Effects: Sets DiskTable[disk] . InUse to false and removes all 
of disk t s partitions 

Calls: DismountPartition 



Function FindPartition(name : string ) : integer; 

Abstract: Searches through partition table looking for a 
partition named name; if found; returns its index in the 
table; 

Parameters: name is partition name of form "dev:part>" or 
":part>" or "part>" where the final ">" is optional in all 
forms. If dev isn't specified then searches through all 
partition names. If dev is specified: then only checks 
those partitions on that device; name may be in any case 

Returns: index in PartTable of FIRST partition with name name 
(there may be more than one partition with the same name in 
which case it uses the oldest one) or zero if not found or 
name malformed; 

Calls: UpperEqual 

'Design: No device name specified is signaled by diskrMAXDISKS ; 
otherwise disk is set to be the device which the device part 
of name specifies 

Function MountPartition(name : string) : integer; 

Abstract: Searches for partition name in part table and mounts it 
if not mounted already; tries to read the head and tail of 
free list to see if valid 



Parameters: name is partition name of form "dev:part>" where 
"dev" and ">" are optional 



Returns: ind*ex in part Table of partition for name or zero if not 
found 



Side Effects: if not mounted already, then reads in Partln-foBlk 
and sets partTable fields; tries to read the head and tail 
of free list to see if valid 
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Errors: if no free slots for partition then Raises 
NoFreePartitions if can't find free list head or tail then 
Raises BadPart 



Calls: FindPartition 

Procedure DismountPartition(name : string); 

Abstract: Removes partition name from PartTable 



Parameters: name is partition name of form "dev:part>" where 
"dev" and ">" are optional 

Side Effects: Writes out part information in table if partition 
InUse and mounted 



Calls: UpdatePartlnfo, ForgetAll 

Function AllocDisk(partition : integer) : DiskAddr; 
Abstract: Allocate a free block from partition 



Parameters: Partition is the partition index to allocate the 
block from 



Returns: Disk Address of newly freed block; 

Side Effects: Updates the partition info to note block freed; 
changes header in buffer of block; writes new head of free 
list with its next and prev fields set to zero and its 
filler set to next free block; decrements PartNumFree 

Errors: Raises PartFull' if no free blocks in partition Raises 
BadPart if free list inconsistent 



Calls: ReadHeader, ChangeHeader, FlushDisk, UpdatePartlnfo 
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Function WhichPartition( addr : DiskAddr) : integer; 

Abstract: Given a disk address; find the partition it is in 

Parameters: addr is a disk address 

Returns: index of partition addr falls inside of or zero if none 

Calls: DoubleBetween 

NOTE: DOESN'T CHECK IF ENTRY IN TABLE IS MOUNTED OR INUSE 

(***Bug***???) 

Procedure DeallocDisk( addr : DiskAddr); 

Abstract: Returns block addr to whatever partition it belongs to 

Parameters: addr is block to deallocate 

Side Effects: adds addr to free list; increments PartNumFree 

Calls: AddToTail, WhichPartition, UpdatePartlnfo 

Procedure DeallocChain( f irstaddr ,lastaddr : DiskAddr; numblks : 
integer) ; 

Abstract: Deallocates a chain of blocks 



Parameters: first Addr and last Addr are addresses of blocks to 
deallocate (inclusive) and numBlks is number of blocks to 
free 



Side Effects: Frees "first and last addr 'using AddToTail; middle 
blocks not changed 

Calls: AddToTail, ChangeHeader , WhichPartition, DoubleAdd , 
FlushDisk, UpdatePartlnfo, Doublelnt 

NOTE: No checking is done to see if numBlks is correct 



- 9 - 



POS D.6 Interface 
05 Feb 82 

module Arith; 



module Arith 



Needed until Pascal compiler supports type long. 
Copyright (C) 1980 Carnegie-Mellon University 
Version Number V2.2 
exports 

imports FileDefs from FileDefs; { to get FSBitnn } 



type 






MyDouble : 


= packed recorc 


I 




case integer. 
1 : 
( 


of 


- - 






Lsw : integer; 




Msw : integer 




); 






2: 






( 






Ptr : FSBit32 




); 






3: 






( 






ByteO ' 


FSBit8 




Bytel 


: FSBit8 




Byte2 


FSBit8 




Byte3 


: FSBit8 



function 


function 


function 


function 


function 


function 


function 


function 



end; 

DoubleAdd(a,b : FSBit32) 



DoubleSub(a ,b 
DoubleNeg(a 
DoubleMuK a ,b 
DoubleDiv ( a ,b 
DoubleInt( a 
IntDouble( a 



FSBit32) 
FSBit32) 
FSBit32) 
FSBit32) 
integer) 
FSBit32) 



Double Bet ween (a , start , stop 



function DoubleMod (a ,b : FSBit32) 
function DoubleAbs(a : FSBit32) 



FSBit32 
FSBit32 
FSBit32 
FSBit32 
FSBit32 
FSBit32 
integer 
: FSBit32) 

FSBit32; 
FSBit32; 



: boolean; 



function DblEql(a,b 
function DblNeq(a,b 
function DblLeq(a,b 
function DblLes(a,b 
function DblGeq(a,b 
function DblGtr(a,b 



FSBit32) 
FSBit32) 
FSBit32) 
FSBit32) 
FSBit32) 
FSBit32) 



boolean 
boolean 
boolean 
boolean 
boolean 
boolean 
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Function DoubleAdd( a,b : FSBit32) : FSBit32; 

Abstract: Adds two doubles together 

Parameters: a and b are doubles to add 

Returns: a+b 

Function DoubleSubC a ,b : FSBit32) : FSBit32; 
Abstract: Subtracts b from a 
Parameters: a and b are doubles 
Returns: a-b 
Design: a+(-b) 

Function DoubleNegCa : FSBit32 ) : FSBit32; 

Abstract: Does a two-s complement negation of argument 
Parameters: a is number to negate 
Returns: -a 

Function DoubleAbs( a : FSBit32 ) : FSBit32; 

Abstract: Does an absolute value of argument 
Parameters: a is number to abs 
Returns: ,a! 

Function DoubleMuKa ,b : FSBit32) : FSBit32; 
Abstract: Multiplies a and b 
Parameters: a and b are doubles 
Returns: a*b 
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Function DoubleDiv( a ,b : FSBit32) : FSBit32; 

Abstract: Divides a by b 

Parameters: a and b are doubles 

Returns : a/b 

Function DoubleMod (a ,b : FSBit32) : FSBit32; 
Abstract: Mods a by b 
Parameters: a and b are doubles 
Returns : a mod b 

Function DoubleInt(a : integer) : FSBit32; 
Abstract: converts a into a double 
Parameters: a is integer 
Returns: double of a; if a is negative then does a sign extend 

Function IntDouble(a : FSBit32 ) : integer; 

Abstract: returns the low word of a 

Parameters: a is a double 

Returns : low word 

Errors: Micro-code raises OvflLI (in Except) if a will not fit in 
one word 

Function DoubleBetween( a , start , stop : FSBit32) : boolean; 

Abstract: determines whether a is between start and stop 
(inclusive) 

Parameters: a is a double to test; start is low double and stop 
is high 

Returns: true if a >= start and a <= stop else false 
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function DblEql(a,b : FSBit32): boolean; 

Abstract: determines whether a = b . 

Parameters: a and b are doubles 

Returns: true if a = b; else false 

function DblNeq(a,b : FSBit32) : boolean; 
Abstract: determines whether a <> b 
Parameters: a and b are doubles 
Returns: true if a <> b; else false 

function DblLeq(a,b : FSBit32) : boolean; 
Abstract: determines whether a <= b 
Parameters: a and b are doubles 
Returns: true if a <= b; else false 

function DblLes(a,b : FSBit32) : boolean; 
Abstract: determines whether a < b 
Parameters: a and b are doubles 
Returns: true if a < b; else false 

function DblGeq(a,b : FSBit32) : boolean; 
Abstract: determines whether a >= b 
Parameters: a and b are doubles 
Returns: true if a >= b; else false 

function DblGtr(a,b : FSBit32) : boolean; 
Abstract: determines whether a > b 
Parameters: a and b are doubles 
Returns: true if a > b; else false 



n 
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module Clock; 

Clock - Perq clock routines. 

J. P. Strait 1 Feb 81. 

Copyright (C) Three Rivers Computer Corporation, 1981. 

Abstract: 

Clock implements the Perq human-time clock. Times are 
represented internally by a TimeStamp record which has numeric 
fields for Year, Month, Day, Hour, Minute, and Second. Times may 
also be expressed by a string of the form YY MMM DD HH:MM:SS 
where MMM is a three (or more) letter month name and HH:MM:SS is 
time of day on a 24 hour clock. 

The clock module exports routines for setting and reading the 
current time as either a TimeStamp or a character string, and 
exports routines for converting between TimeStamps and strings. 

Version Number V1.6 
exports 

imports GetTimeStamp from GetTimeStamp; 

const ClockVersion = M.6 1 

type TimeString = String; 

procedure SetTStampC Stamp: TimeStamp ); 

procedure SetTString( String: TimeString); 

procedure GetTStringC var String: TimeString ); 

procedure StampToStr ing ( Stamp: TimeStamp; var String: TimeString ); 

procedure Str ingToStamp( String: TimeString; var Stamp: TimeStamp); 

Exception BadTime; 

Abstract: Raised when a string passed does not represent a valid 
time 



i 
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procedure SetTStampC Stamp: TimeStamp ); 

Abstract: Sets time to be time specified by Stamp 

Parameters: stamp is new time 

SideEffects: Changes current time 

procedure SetTStringC String: TimeString); 

Abstract: Sets time to be time specified by String 

Parameters: string is the string of the new time 

SideEffects: Changes current time 

Errors: Raises BadTime is string is invalid (malformed or illegal 
time) 

procedure GetTStringC var String: TimeString ); 

Abstract* Returns th° c ,i rr a nt ^t**»^ 3*5 ^ s^ri nn 

Parameters: string is the string to be set with the current time 

procedure StampToString( Stamp: TimeStamp; var String: TimeString ); 

Abstract: Returns a string for the time specified by stamp 

Parameters: stamp is time to get string for; string is set with 
time represented by stamp 

procedure Str ingToStamp( String: TimeString; var Stamp: TimeStamp ); 

Abstract: Converts string into a time stamp 

Parameters: string is the string containing time; stamp is . stamp 
set with time according to string 

Errors: Raises BadTime is string is invalid (malformed or illegal 
time) 
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Module CmdParse; 

This module provides a number of routines to help with command 
parsing . 

Written by Don Scelza April 30, 1980 

Copyright (C) 1980 - Three Rivers Computer Corporation 
Version Number V3-6 
{a*******************} Exports {********************} 

Const CmdPVersion = • 3 -5 f ; 
MaxCmds = 30; 
MaxCString = 255; 

CCR = Chr(13); {same as standard CR} 
CmdChar = Chr(24); 
Cmd File Char = Chr(26); 

Type CString = String[MaxCStr ing] ; 

CmdArray = Array[ 1 . .MaxCmds] Of String; 

Procedure CnvUpper(Var Str :CString) ; {*.*« USE ConvUpper IN PERQ_String***} 
Function UniqueCmdlndex ( Cmd :CStr ing ; Var CmdTable: CmdArray; 

NumCmds : Integer ) : Integer; 
Procedure RemDelimiter s( Var Src:CString; Delimiter s :CStr ing ; 

Var BrkChar :CString) ; 
Procedure GetSymbol ( Var Src , Symbol :CStr ing ; Delimiters :CStr ing ; 

Var BrkChar :CString) ; 

Function NextID(var id: CString; var isSwitch: Boolean): Char; 
Function NextlDStr ing( var s, id: CString;var isSwitch: Boolean): Char; 

Type pArgRec = "ArgRec; 
ArgRec = RECORD 

name: CString; 
next: pArgRec; 
END; 

pSwitchRec = ~SwitchRec; 
SwitchRec = RECORD 

switch : CString ; . 

arg: CString; 

correspondingArg : pArgRec; 

next: pSwitchRec; 
END; 

Function ParseCmdArgs( var inputs, outputs: pArgRec; var switches: pSwitchRec; 

var err: String): boolean; 
Function ParseStringArgs( s : CString; var inputs, outputs: pArgRec; 

var switches: pSwitchRec; var err: String): boolean; 
Procedure DstryArgRec( var a: pArgRec); 
Procedure DstrySwitchRec( var a: pSwitchRec); 

Type pCmdList = "CmdListRec; 
CmdListRec = RECORD 
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cmdFile: Text; 
isCharDevice : Boolean; 
next: pCmdList; 
seg : Integer • 

END; 

ocedure InitCmdFile( var inF: pCmdList; seg: Integer); 

notion DoCmdFile(line : CString; var inF: pCmdList; var err: String): boolean; 

ocedure ExitCmdFile( var inF: pCmdList); 

ocedure ■ Exit AllCmdFiles( var inF: pCmdList); 

ocedure DstryCmdFiles( var inF: pCmdList); 

notion RemoveQuotes( var s: CString): boolean; 

pe ErrorType = (ErBadSwitch , ErBadCmd, ErNoSwParam, ErNoCmdParam , ErSwParam, 

ErCmdParam, ErSwNotUnique , Er Cmd Not Unique , ErNoOutFile, 
ErOnelnput, ErOneOutput, ErFileNotFound , Er DirNotFound , 
Er IllChar After , ErCannotCreate , ErAnyError, ErBadQuote); 

ocedure StdError ( err : ErrorType; param: CString; leaveProg: Boolean); 
mction NextStringC var s, id: CString; var isSwitch: Boolean): Char; 
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Procedure InitCmdFile( var inF: pCmdList; seg : Integer); 

Abstract: Initializes inF to be a valid Text File corresponding 
to the keyboard. This must be called before any other 
command file routines. The application should then read 
from inF" .cmdFile . E.g. ReadLn( inFile" .cmdFile , s) ; or 
while not eof( inFile" .cmdFile) do ... Use popup only if 
inF" .next = NIL (means no cmd File). Is a fileSystem file 
if not inF" .isChar Device . InF will never be NIL. The user 
should not modify the pCmdList pointers; use the procedures 
provided. 

Parameters: InF - is set to the new command list. 

seg - the segment number to allocate the command file list 
out of. If the application doesn*t care, use 0. This 
is useful for programs like the Shell that require the 
list of command files to exist even after the program 
terminates. For other applications, use 0. 

Function DoCmdFile( line : CString; var inF: pCmdList; var err: String): 
boolean; 

Abstract: This procedure is meant to handle an input line, that 
specifies that a command file should be invoked. The 
application will find a line that begins with an Q and will 
call this procedure passing that line. This procedure 
maintains a stack of command files so that command files can 
contain other command files. Be sure to call InitCmdFile 
before calling this procedure. 

Parameters: line - the command line found by the application. It 
is OK if it starts with an § but it is also OK if it 
doesn't . 

inF - the list of command files. This was originally 
created by InitCmdFile and maintained by these 
procedures. If the name is a valid file, a new entry 
is put on the front of inF describing it. If there is 
an error, then inF is not changed. In any case, inF 
will always be valid. 

err - if there is an error, then set to a string describing 
the error, complete with preceding »** '. If no error, 
then set to f '. The application can simply do: if not 
DoCmdFile(s, inF, err) then WriteLn(err ) ; 

Returns: True if OK, or false if error. 
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Procedure ExitCmdFile( var inF: pCmdList); 

Abstract: Remove top command file from list. Call this whenever 
come to end of a command file. 

Parameters: InF - the list of command files. It must never be 
NIL. The top entry is removed from inF unless attempting to 
remove last command file, when it is simply 
re-initialized to be the console. It is OK to call this 

routine even when at the last entry of the list. 

Suggested use: While E0F( inF~ .cmdFile) do 

ExitCmdFile(inF) ; 

Procedure ExitAllCmdFiles'C var inF: pCmdList); 

Abstract: Remove all command file from list. Use when get an 
error or a 
~SHIFT-C to reset all command files. 

Parameters: InF - the list of command files. It must never be 
NIL. All entries but the last are removed. 



Procedure DstryCmdFiles(var inF: pCmdList); 

Abstract: Removes all command files from list. 

Parameters: InF - the list of command files. All entries are 
removed and InF set to NIL. 

Function NextID(var id: CString; var isSwitch: Boolean): Char; 

Abstract: Gets the next word off UsrCmdLine and returns it. It 
is OK to call this routine when UsrCmdLine is empty (id will 
be empty and return will be CCR) This procedure also removes 
comments from s (from to end of line is ignored). This is 
exactly like NextlDString except it uses the UsrCmdLine by 
default . 

WARNING: It is a bad idea to mix calls to NextID and 
RemDelimiters/GetSymbol since the latter 2 may change 
UsrCmdLine in a way that causes NextID to incorrectly report 
that an id is not a switch. This procedure also appends a 
CCR to the end of UsrCmdLine so it should not be printed 
after this procedure is called. 
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Parameters: 

id - set to the next word on Usr CmdLine . If there are none, 
then id will be the empty string. 

isSwitch - tells whether the word STARTED with a slash "/". 
The slash is not returned as part of the name. 

Results: The character returned is the next "significant" 
character after the id. The possible choices are "=" "," " 
» "~» CCR. CCR is used to mean the end of the line was hit 
before a significant character. If there are spaces after 
the id and then one of the other break characters defined 
above, then the break character is returned. If there is a 
simply another id and no break characters, then SPACE is 
returned . 



SideEffects: Puts a CCR at the end of UsrCmdLine so it is a bad 

idea to print UsrCmdLine after NextID is called the first 

time. Removes id and separators from front of UsrCmdLine. 
The final character is also removed. 

Function NextlDStr ing( var s, id: CString; var isSwitch: Boolean): 
Char ; 

Abstract: Gets the next word off s and returns it. It is OK to 
call this routine when s is empty (id will be empty and 
return will be CCR) This procedure also removes comments 
from s (from to end of line is ignored). This is exactly 
like NextID except it allows the user to specify the string 
to parse. 

WARNING: It is a bad idea to mix calls to NextlDString and 
RemDelimiters/GetSymbol since the latter 2 may change s in a 
way that causes NextlDString to incorrectly report that an 
id is not a switch. 

Parameters : 

s - String to parse. Changed to remove id and separators 
from front. The final character is also removed. 

id - set to the next word in string. If there are none, 
then id will be the empty string. 

isSwitch - tells whether the word STARTED with a slash "/". 
The slash is not returned as part of the name. 
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Results: The character returned is the next "significant" 
character after the id. The possible choices are "=" "," " 
it h~h cqr # CCR is used to mean the end of the line was hit 
before a significant character. If there are spaces after 
the id and then one of the other break characters defined 
above, then the break character is returned. If there is a 
simply another id and no break characters, then SPACE is 
returned . 

Function NextStringC var s, id: CString; var isSwitch: Boolean): char; 

Abstract: Get*s the next word off s and returns it. It is OK to 
call this routine when s is empty (id will be empty and 
return will be CCR) This procedure also removes comments 
from s (from to end of line is ignored). The character 
after id is NOT removed from s. This is like NextlDStrlng 
except the character is removed in NextlDString . 

Parameters : 

s - String to parse. Changed to remove id and separators 
from front. Final character is NOT removed. 

id - set to the next word in string. If there are none, 
then id will be the empty string. 

isSwitch - tells whether the word STARTED with a slash "/". 
The slash is not returned as part of the name. 

Results: The character returned is the next "significant" 
character after the id. This character remains at the front 
of s. The possible choices are "=" "," " " "~" CCR. CCR is 
used to mean the end of the line was hit before a 
significant character. If there are spaces after the id and 
then one of the other break characters defined above, then 
the break character is returned. If there is a simply 
another id and no break characters, then SPACE is returned. 



Function RemoveQuotes( var s: CString): boolean; 

Abstract: Changes all quoted quotes ( fl ) into single quotes ( f ). 

Parameters: s - string to remove quotes from. It is changed. 
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Returns: true if all ok. False if a single quote ended the 

string. In this case s still contains that quote. 



Function ParseCmdArgs( var inputs, outputs: pArgRec; var switches: 
pSwitchRec; var err: String): boolean; 

Abstract: Parses the command line assuming standard form. The 
command should be removed from the front using Nextld before 
ParseCmdArgs is called. 

Parameters: 

inputs - set to list describing the inputs. There will 
always be at least one input, although the name may be 
empty. 

outputs - set to list describing the outputs. There will 
always be at least one output, although the name may be 
empty. 

switches - set to the list of switches, if any. Each switch 
points to the input or output it is attached to. This 
may be NIL if the switch appears before any inputs. If 
a global switch, the application can ignore this 
pointer. If a switch is supposed to be local, the 
application can search for each input and output 
through the switches looking for the switches that 
correspond to this arg. Switches may be NIL if there 
are none. 

err - set to a string describing the error if there is one. 
This string can simply be printed. If no error, then 
set to » ' . 

Returns: false if there was a reported error so the cmdLine 
should be rejected. In this case, the pArgRecs should be 
Destroyed anyway. 



Function ParseStringArgs( s : CString; var inputs, outputs: pArgRec; var 
switches: pSwitchRec; var err: String): boolean; 

Abstract: Parses the string assuming standard form. The command 
should be removed from the front using Nextld before 
ParseCmdArgs is called. 
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Parameters: 

s - the string to parse. 

inputs - set to list describing the inputs. There will 
always be at least one input, although the name may be 
empty. 

outputs - set to list describing the outputs. There will 
always be at least one output, although the name may be 
empty. 

switches --set to the list of switches, if any. Each switch 
points to the input or output it is attached to. This 
may be NIL if the switch appears before any inputs. If 
a global switch, the application can ignore this 
pointer. If a switch is supposed to be local, the 
application can search for each input and output 
through the switches looking for the switches that 
correspond to this arg. Switches may be NIL if there 
are none. 

err - set to a string describing the error if there is one. 
This string can simply be printed. If no error, then 
set to T » . 

Returns: false if there was a reported error so the string should 
be rejected. In this case, the pArgRecs should be Destroyed 
anyway. 



Procedure DstryArgRec( var a: pArgRec); 

Abstract: Deallocates the storage used by a ArgRec list. 

Parameters: a - the head of the list of ArgRecs to deallocate 
It is set to NIL. OK if NIL before call. 

Procedure DstrySwitchRec( var a: pSwitchRec); 

Abstract: Deallocates the storage used by a SwitchRec list. 

Parameters: a - the head of a list of pSwitchRecs to deallocate 
It is set to NIL. OK if NIL before call. 
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Procedure StdError (err : ErrorType; param: CString; leaveProg: 
Boolean) ; 

Abstract: Prints out an error message with a parameter and then 
optionally exits the user program. 

Parameters: err - the error type found 

leaveProg - if true then after reporting error, raises 

ExitProg to return to the shell. If false then simply 

returns 
param - parameter for the error. The message printed is: 

ErBadSwitch - "** <PARAM> is an invalid switch." 

ErBadCmd - "** <PARAM> is an invalid command." 

ErNoSwParam - "** Switch <PARAM> does not take any 
arguments." 

ErNoCmdParam - "** Command <PARAM> does not take any 
arguments ." 

ErSwParam - "** Illegal parameter for switch <PARAM>." 

ErCmdParam - "** Illegal parameter for command <PARAM>." 

ErSwNotUnique - "** Switch <PARAM> is not unique." 

ErCmdNotUnique - "** Command <PARAM> is not unique." 

ErNoOutFile - "** <PARAM> does not have any outputs." 

ErOnelnput - "** Only one input allowed for <PARAM>." 

ErOneOutput - "** Only one output allowed for <PARAM>." 

ErFileNotFound - "** File <PARAM> not found." 

ErDirNotFound - "** Directory <PARAM> does not exist." 

ErlllCharAfter - "** Illegal character after <PARAM>." 

ErCannotCreate - "** Cannot create file <PARAM>." 

ErBadQuote - "** Cannot end a line with Quote." 

ErAnyError - "<PARAM>" 
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Procedure CnvUpper(Var Str :CString) ; 

Abstract: This procedure is used to convert a string to 
uppercase . 

Parameters: Str is the string that is to be converted. 

Side Effects: This procedure will change Str. ****WARNING**** 
THIS PROCEDURE WILL SOON BE REMOVED. USED THE PROCEDURE 
Conv Upper IN PERQ_STRING 

Function UniqueCmd Index ( Cmd :CString ; . Var CmdTable: CradArray; 
NumCmds : Integer ) : Integer; 

Abstract: This procedure is used to do a unique lookup in a 
command table . 

Parameters: Cmd - the command that we are looking for. 

CmdTable - a table of the valid commands. The first valid 
command in this table must start at index 1 . 

NumCmds - the number of valid command in the table. 

Results: This procedure will return the index of Cmd in CmdTable. 
If Cmd was not found then return NumCmds + 1. If Cmd was 
not unique then return NumCmds+2. 

Procedure RemDelimiters( Var Src:CString; Delimiters :CString ; Var 
BrkChar :CString) ; 

Abstract: This procedure is used to remove delimiters from the 
front of a string. 

Parameters: 

Src - the string from which we are to remove the delimiters. 
Delimiters - a string that contains the characters that are 

to be considered delimiters. 
BrkChar - will hold the character that we broke on. 

Side Effects: This procedure will change both Src and BrkChar. 
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Procedure GetSymbol (Var Src , Symbol :CString ; Delimiters :CString ; Var 
BrkChar :CString) ; 

Abstract: This procedure is used to remove the first symbol from 
the beginning of a string. 

Parameters: 

Src - the string from which we are to remove the symbol. 

Symbol - a string that is used to return the next symbol. 

Delimiters - a string that defines what characters are to be 
considered delimiters. Any character in this string 
will be used to terminate the next symbol. 

BrkChar - used to return the character that stopped the 
scan . 

Side Effects: This procedure will remove the first symbol from 
Src and place it into Symbol. It will place the character 
that terminated the scan into BrkChar. 
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pdule Code; 



module Code 



Dde.Pas - Common definitions for the Linker and Loader. 

P. Strait 10 Feb 81* Rewritten as a module, 
Dpyright (C) Three Rivers Computer Corporation, 1981. 

Dstract : 

Code. Pas defines constants and types shared by the Linker and the 
Loader. These include definitions of the run file and of offsets 
in the stack segment. 

Design: When the format of run files is changed, the constant 
RFileFormat must also be changed. This is necessary to prevent 
the procedures which read run files from failing. 

sports 



imports GetTimeStamp from GetTimeStamp ; 



Dnst 



RFileFormat = 2; 



QCodeVersion 


r 


3; { 


FileLength 


= 


100; { 


SegLength 


= 


8; { 


StackLeader 


= 


2; ( 


DefStackSize 


_ 


#20; { 


DefHeapSize 


= 


#4; { 


DeflncStack 


~ 


#4; { 


Def IncHeap 


= 


#4; { 


FudgeStack 


"" 


#2000; { 



Current QCode Version 
max chars in a file n 
max chars in a segmen 
number of leader word 
XSTs (must be even) 
Currently contains in 
default stack segment 
default heap segment 
default stack size in 
default heap size inc 
fudge space between s 
this must hold all lo 
maximum configuration 



Number } 
ame } 
t name } 

s in stack before } 

} 
itial TP and GP } 

size (in blocks) } 
size (in blocks) } 
crement (in blocks) } 
rement (in blocks) } 
ystem and user GDB's } 
ader variables at } 

in LoadStack } 



CommentLen = 80; 



{ the length of comment and version str in seg} 



ype 



SNArray = packed array[ 1 . .SegLength] of Char; { segment name } 

pFNString = "FNString; 

FNString = String[FileLength] ; { file name } 

QVerRange = 0..255; { range of QCode version numbers } 



SegHint = record case Integer of 
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1 : 


(Fid : Integer; 
Update: TimeStamp) 




2: 


(Word 1 : Integer ; 
Word2 : Integer; 
Word3 : Integer) 




end ; 



module Code 



{ file id } 

{ update time } 



pSegNode = "SegNode; 
plmpNode = "ImpNode; 



{ Segment information record:} 



SegNode = 



record 
Segld 
RootNam 
Hint 
GDBSize 
XSTSize 
GDBOff 
ISN 

CodeSize 
SSN 

UsageCnt 
ImpList 
Next 
end : 



SNArray 

pFNString ; 

SegHint 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

pimp Node ; 

p SegNode 



segment name } 

file name without .Pas or . Seg } 
hint to the segment file } 
size of this segment's GDB } 
size of this segment's XST } 
StackBase offset to GDB } 
segment number inside Linker } 
number of blocks in .Seg file } 



{ Import information record } 



Imp Node = 



record 


Sid : 


FilN : 


XGP : 


XSN 


Seg : 


Next : 


end : 



SNArray; 
pFNString ; 
integer ; 
integer ; 
pSegNode ; 
plmpNode 



{ name of imported segment } 

{ file name of imported segment } 

{ global pointer of import } 

{ internal number of import } 



{ Run file: } 

Run Element = (Run Header , Sys Segment , User Segment , Import , Seg File Names) ; 

Runlnfo = record { run header } 
RFileFormat : integer 



Version : 

System : 

InitialGP 

CurOffset 

StackSize 

Stacklncr 

HeapSize : 



integer 
boolean 
integer 
integer 
integer 
integer 
integer 
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module Code 



Heaplncr: integer; 

ProgramSN: integer; 

Seg Count:. integer 
end ; 

RunFileType = file of Integer; 



{ Segment file : } 
pSegBlock = "SegBlock; 



SegBlock = 



packed record case boolean of 
{ first block: } 
true: ( ProgramSegment 
SegBlkFiller 
QVersion 
Module Name 
File Name 
NumSeg 
ImportBlock 
GDBSize 
Version 
Comment 



{ .SEG file definition } 



boolean ; 

0..127; 

QVer Range ; 

SNArray; 

FNString ; 

integer; 

integer ; 

integer ; 

String[ CommentLen] ; 

String [ Comment Len] ) ; 



false :( Block: array[0. .255] of integer) 
end ; 

CImpInfo = record case boolean of { Import List Info - as generated } 

{ by the compiler } 
true: ( ModuleName: SNArray; { module identifier } 
FileName: FNString { file name } 

); 

false:( Ary: array [0..0] of integer) 
end ; 

SegFileType = file of SegBlock; 



on 
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module ControlStore ; 



module ControlStore 



ControlStore - Load and call routines in the PERQ control-store. 

J. P. Strait ca. July 80. 

Copyright (C) Three Rivers Computer Corporation, 1981. 

Abstract : 

The ControlStore module exports types defining the format of PERQ 
micro-instructions and procedures to load and call routines in 
tne control-store. 

Version Number V1.2 
exports 

type Microinstruction = { The format of a micro-instruction as produced bj 

the micro-assembler. } 
packed record case integer of 
0: (Word 1 : integer ; 

Word2: integer; 

Word3: integer) ; 
1: (Jmp: 0..15; 

Cnd: 0..15; 

Z: 0..255; 

SF: 0..15; 

F: 0..3; 

ALU: 0..15; 

H: 0..1; 

W: 0..1; ' 

B: 0..1; 

A: 0..7; 

Y: 0..255; 

X: 0..255); 
2: (JmpCnd: 0..255; 

Filll: 0..255; 

SFF: 0..63; 

ALUO: 0. .1; 

ALU1: 0..1; 

ALU23: 0..3) 
end ; 

MicroBinary = { The format of a micro-instruction and its address as 

produced by the micro-assembler. } 
record 

Adrs: integer; 

MI: Microinstruction 

end ; 

TransMicro = { The format of a micro-instruction as needed by the WCS 

QCode. } 
packed record case integer of 
0: (Word 1 : integer ; 
Word2: integer; 
Word 3 : integer) ; 
1: (ALU23: 0..3; 
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module ControlStore 



ALUO: 


0..1 




W: 


0..1 




ALU1: 


0. . 1, 




A: 


0..7 




Z: 


0..255; 


SFF: 


0..63; 


H: 


0. .1; 


B: 


0..1 


' 



end 



JmpCnd :0. .255) 



MicroFile = file of MicroBinary; { A file of micro-instructions. } 

procedure LoadControlStore( var F: MicroFile ); 

procedure LoadMicroInstruction( Adrs: integer; MI: Microinstruction ); 

procedure JumpControlStore( Adrs: integer ); 
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procedure LoadControlStore( var F: MicroFile ); 



module ControlStore 



Abstract: Loads the contents of a MicroFile into the PERQ 
control-store. The file whould be opened (with Reset) 
before calling LoadControlStore . It is read to EOF but not 
closed; thus it should be closed after calling 
LoadControlStore . 



Parameters: 

F - The MicroFile that contains the micro-instructions to be 
loaded . 



procedure LoadMicroInstruction( Adrs: integer; MI: Microinstruction ); 

Abstract: Loads a single micro-instruction into the PERQ 
control-store . 



Parameters: 

Adrs - The control store address to be loaded. 
Ml - The micro-instruction to be loaded. 



procedure JumpControlStoreC Adrs: integer ); 



Abstract: Transfers control of the PERQ micro engine to a 
particular address in the control-store. 

Note 1: Values may not be loaded onto the expression stack 
before calling JumpControlStore . If you wish to pass values 
through the expression stack, the following code whould be 
used rather than calling LoadControlStore. 

LoadExpr( L0r( Shift( Adrs, 8) , Shift( Adrs ,-8) ) ); 
InLineByteC #277 ); the JCS QCode *) 

Note 2: Microcode called by JumpControlStore should 
terminate with a "Nextlnst ( 0) " microcode jump instruction. 



Parameters :' 

Adrs - The address to jump to. 
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>,dule DisklO; 

>stract: 

This module implements the basic low level operations to disk 
devices. It services the Hard Disk and the Floppy. When dealing 
with the floppy here, the structures on the hard disk are mapped 
to the structures on the floppy. 

jrsion Number V3.13 

?#*###***#**#*****} exports {***************************} 

lports Arith from Arith; 
lports FileDefs from FileDefs; 
iports IOErrors from IOErrors; 

>nst 

HARDNUMBER = 0; {device code of Shugart Disk} 

FLOPPYNUMBER = 1; {device code of FloppyDisk} 

{a Disk Address can be distinguished from a Segment Address by the . 
upper two bits (in 32 bits). These bits have a nonzero code to 
which disk the address is part of} 

RECORDIOBITS = #140000; {VirtualAddress upper 16 bits of disk} 
DISKBITS = RECORDIOBITS + ( HARDNUMBER*( #20000) ) ; 

FLOPBITS = RECORDIOBITS + ( FLOPPYNUMBER*(#20000) ) ; 

{The following definitions tell how many entries there are in the 
three pieces of the random index. The first piece (Direct) 
are blocks whose DiskAddresses are actually contained in the 
Random Index (which is part of the FilelnformationBlock) . 
The second section has a list of blocks each of which contain 128 Disk 
Addresses of blocks in the file, forming a one level indirect addressing 
scheme . 

For very large files, the third section (Dbllnd) has DiskAddresses of 
blocks which point to other blocks which contain 128 DiskAddresses 
of blocks in the file, forming a two level indirect scheme.} 

DIRECTSIZE = 64; { Entries. in FIB of blocks directly accessable } 

INDSIZE = 32; { Entries in FIB of 1 level indirect blocks } 

DBLINDSIZE = 2; { Entries in FIB of 2 level indirect blocks } 

FILESPERDIRBLK = 16; { 256 / Size0f( Dir Entry) } 

NUMTRIES = 15; { number of tries at transfer before aborting } 

fpe 

{Temporary segments go away when processes are destroyed, 
Permanent segments persist until explicitly destroyed 
Bad Segments are not well formed segments which are not 
readable by the Segment system} 

SpiceSegKind = (Temporary, Permanent, Bad); 

PartitionType = (Root, UnUsed, Leaf); {A Root Partition is a device} 
DeviceType = (WinchlP, Winch24, FloppySingle , FloppyDouble , 

UnUsedli UnUsed2) ; 
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module DisklO 



MyDble = Array [0..1] of integer; 

DiskCheatType = record 

case integer of 
1: ( 

Addr 

); 

2: ( 

Dbl 



); 



3: ( 



); 



Seg 



4: ( 



end ; 



Lng 



DiskAddr 

MyDble { should be 10. Double but don't 
import 10 in export section } 

SegID 
FSBit32 



{ A directory is an ordinary file which contains SeglDs of files 
along with their names. Directories are hash coded by file name 
to make lookup fast. They are often sparse files (ie contain 
unallocated blocks between allocated blocks) . The file name is a 
SimpleName, since a directory can only contain entries for 
files within the partition (and thus device) where the directory 
itself is located } 



DirEntry = packed record 

InUse 
Deleted 
Archived 
UnUsed 
ID 

Filename 
end ; 



boolean; {true if this DirEntry is valid} 

boolean; {true if entry deleted but not expunged 

boolean; {true if entry is on backup tape} 

0. .#17777; {reserved for later use} 

SegID; 

SimpleName 



DiskBuffer = packed record 

case integer of 
1: ( 

Addr : array [0 . . ( DISKBUFSIZE div 2)-1] of DiskAddr 

); 

2: ( 

IntData : array [ . . DISKBUFSIZE-1 ] of FSBitl6 

); 

3: ( 

ByteData : packed array [0 . . DISKBUFSIZE*2-1 ] of FSBit 

); 

{4 is format of the FilelnformationBlock; the FIB has Logical Block -1 } 

4: < 



FSData 



: FSDataEntry; 



{The Random Index is a hint of the DiskAddresses 
of the blocks that form the file. 
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) 



module DisklO 



It has three parts as noted above. Notice 
that all three parts are always there, so 
that even in a very large file, the first 
DIRECTSIZE blocks can be located quickly 
The blocks in the Random index have logical 
block numbers that are negative. The logical 
block number of lndirect[0] is -2 (the FIB is -1) 
the last possible block's number is 
-UNDSIZE+DBLINBDSIZE+1)} 



Direct : array [0. . DIRECTSIZE-1 ] of DiskAddr 

Indirect : array [0. . INDSIZE-1 ] of DiskAddr 

Dbllnd : array" [0. . DBLINDSIZE-1 ] of DiskAddr 

SegKind : SpiceSegKind ; 



NumBlksInUse : integer; {segments can have gaps, 

block n may exist when block 
n-1 has never been allocated. 
NumBlksInUse says how many 
data blocks are actually used 
by the segment} 
FSBitl6; {Logical Block Number of 
largest block allocated} 
DiskAddr; {DiskAddr of LastBlk } 
FSBitl6; {Logical Block Number of 
largest pointer block 
allocated} 
{Block number of LastNegBlk} 



LastBlk 

LastAddr 
LastNegBlk 



5 is the format of 



LastNegAddr: DiskAddr 

the DisklnformationBlock} 
5: ( 



{The Free List is a 
by their headers } 



chain of free blocks linked 



FreeHead 

FreeTail 

NumFree 

RootDirlD 

BadSegID 



DiskAddr; {Hint of Block Number of 
head of the free list} 

DiskAddr; {Hint of Block Number of 
tail of the free list} 

FSBit32; {Hint of how many blocks 
•are on the free list} 

SegID; {where to find the Root 
Directory} 

SegID; {where the bad segment is} 



the 



the 



{when booting, the boot character is indexed into 
the following tables to find where code to be 
boot loaded is found } 



BootTable 

InterpTable 

PartName 

PartStart 

Part End 

Subparts 



array [0..25] of DiskAddr; {qcode} 

array [0..25] of DiskAddr; {microcode} 

packed array [1..8] of char; 

DiskAddr ; 

Di skAddr • 

array [0..63] of DiskAddr; 
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PartRoot : DiskAddr; 
PartKind : PartitionType ; 
PartDevice : DeviceType 

); 

{6 is the format of a block of a Directory} 

6: ( 

Entry : array [0. .FILESPERDIRBLK-1 ] of DirEntry 

) 

end; 

ptrDiskBuffer = "DiskBuf fer ; 

Header = packed record {format of a block header} 

SerialNura : DiskAddr; {Actually has the SegID of the file} 
LogBlock : integer;' {logical block number} 
Filler : integer; {holds a hint to a candidate 

for the FreeHead} 
PrevAdr : DiskAddr; {Disk Address of the next block in 

this segment} 
NextAdr : DiskAddr; {Disk Address of the previous block ir 

this segment} 
end ; 

ptrHeader = "Header; 

DiskCommand= (DskRead, DskWrite, DskFirstWr ite , DskReset, DskHdrRead, 

DskHdrWrite) ; {last ones for error reporting} 

var 

DiskSegment : integer; {a memory segment for DisklO} 

procedure InitDisklO; {initialize DisklO, called at boot time} 

procedure- ZeroBuf fer ( ptr : ptrDiskBuffer); {write zeroes in all words of the 

buffer. When reading an unallocatc 
block, Zeros are returned in the 
buffer} 

function WhichDisk( addr : DiskAddr) : integer; {Tells you which disk number a 

DiskAddr is on} 

function AddrToFieldC addr : DiskAddr) : integer; {gives you a one word short 

address by taking the lower 
byte of the upper word and 
the upper byte of the lower 
word. The upper byte of the 
upper word can't have any 
significant bits for the 12 
or 24 megabyte disks. The 
lower byte of the lower wore 
is always zero (since a disk 
address is a page address 
which is 256 words 
} 
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.motion Field To Addr (disk : integer; fid : integer) : DiskAddr; 

{ Makes a DiskAddr out of a 
short address and a disk 
number 
} 

'ocedure DiskIO(addr : DiskAddr; ptr : ptrDiskBuf fer ; 

hptr : ptrHeader; dskcommand : DiskCommand) ; {Do a disk 

operation, if 
errors occur , 
exits via 
DiskError} 

motion LogAddrToPhysAddr ( addr : DiskAddr) : DiskAddr; 

{translate a Logical Disk Address (used 
throughout the system) to and from a 
physical Disk Address (the kind the disk 
contoller sees) Logical Disk Addresses 
use a sequential numbering system 
Physical Disk Addresses have a 
Cylinder-Head-Sector system This routine 
calls MapAddr (a private routine which 
does the translation) Map Addr 
implements interlace algorithm} 

tion PhysAddrToLogAddr(disk : integer; addr : DiskAddr) : DiskAddr; 

inction LastDiskAddr(DevType : DeviceType) : DiskAddr; {Gets the Disk Address 

of the last possible 
page on the device} 

inction Number Pages(DevType : DeviceType) : FSBit32; {Return the number of 

pages on a device} 

'ocedure DiskReset; {Reset the disk controller and recalibrate the actuater} 

inction TryDiskIO.(addr : DiskAddr; ptr : ptrDiskBuf fer ; - 

hptr : ptrHeader; dskcommand : DiskCommand; 
numTries: integer) : boolean; 

{Try a disk operation, but, return false 

if error occurred 
} 

:ception DiskFailure(msg : String; operation: DiskCommand; addr: DiskAddr; 

softStat: integer); 
ception DiskError (msg : String); 
ception BadDevice; 

tw ErrorCnt : Array[ IOEFirstError . . IOELastError ] of integer; 



_ 37 _ 



POS D.6 Interface module DisklO 

05 Feb 82 

Procedure InitDisklO; 

Abstract: Initializes the DisklO package 

SideEffects: Creates a new segment ( DiskSegment) . Sets 
Initial zed . 

Calls: CreateSegment 

Function Number Pages( DevType :DeviceType) : FSBit32; 
Abstract: Returns number of pages on a disk 

Parameters: DevType: a device code 

Function LastDiskAddr ( DevType : DeviceType) : DiskAddr; 

Abstract: Returns Disk Address of last possible page on a disk 

Parameters: DevType: a device code 

Calls: NumberOf Pages 

Procedure ZeroBuf f er (ptr : ptr DiskEuf fer ) ; 
Abstract: clear buffer to zeroes 

Parameters : 

ptr - a pointer to a disk buffer 

Function WhichDisk( addr : DiskAddr) : integer; 
Abstract: Return disk device of a DiskAddr 

Parameters addr a DiskAddr that you want the device code for 
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Function AddrToField (addr : DiskAddr) : integer; 

Abstract: return a short (one word) disk address by taking the 
low byte of the most significant word of the Disk Address 
and the upper byte of the least significant word 

Parameters: 

addr - the Disk Address of to get a short address for 

Function FieldToAddr (disk : integer; fid : integer) : DiskAddr; 

Abstract: Return a DiskAddress given a short address and the disk 
device code 



Parameters : 

disk - the disk device code 

fid - the short address (returned by AddrToField at some 
point) 

Function LogAddrToPhysAddr (addr : DiskAddr) : DiskAddr; 

Abstract: Convert a Logical DiskAddress to a Physical Disk 
Address 



Parameters : 

addr - the disk address to be converted 

Calls: MapAddr 

Function PhysAddrToLogAddr (disk : integer; addr : DiskAddr) : 
DiskAddr ; 

Abstract: Translate a Physical Disk Address to a logical disk 
address 



Parameters : 

disk - Device code of disk 

addr - Physical address to translate 



Calls: UnMapAddr 
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Procedure DiskReset; 

Abstract: Reset the Hard Disk and recalibrate the drive 

Calls: UnitIO 

Design: Assuming that the disk is at track 201, seek in one track 
until the Track bit in the disk status is set Then force 
the microcode to believe that this is track 0, and reset the 
disk controller again 

Procedure DiskI0(addr: DiskAddr; ptr : ptr DiskBuf fer ; hptr : ptrHeader; 
dskcommand: DiskCommand) ; 

Abstract: Calls DoDisklO with DieOnError set true; does 15 
retries (3 recalibrates) 

Parameters: see DoDisklO 

function TryDiskIO(addr : DiskAddr; ptr : ptr DiskBuf fer ; hptr : 
ptrHeader; dskcommand : DiskCommand; num Tries: integer) : 
boolean; 

Abstract: Calls DoDisklO with DieOnError set false 

Parameters: see DoDisklO 

Returns: true if tranfer went ok, false if errors occurred 
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)dule Dynamic; 

mamic - Perq dynamic memory allocation and de-allocation. 

P. Strait 1 Jan 80, 
>pyright (C) Three Rivers Computer Corporation, 1980, 1981,1982. 

)stract : 

Dynamic implements Pascal dynamic allocation - New and Dispose. 
Memory of a given size with a given alignment may be allocated 
from any data segment. If the data segment is full (doesn't 
contain enough free memory to allocate) , the segment is increased 
in multiples of the segment's increment size until there is 
enough free memory to allocate. Similarly, memory that was once 
allocated may be deallocated. 

Design: Free memory within each segment is linked into a circular 
freelist in order of address. Each free node is at least two 
words long and is of the form 

record Next: Integer; Length: Integer; Rest: 2*Length - 2 . 
words end; 

nucfc mcX u- c iS uric cauui coo Ox uuc ucau 11 cc uOuc eauu Lciigou-t xo 

the number of free words. 

sion Number V1.4 
>rts 

>nst Dynamic Version = » 1 . 4 » ; 

lports Memory from Memory; 

■ocedure NewPC S: SegmentNumber ; A: integer; var P: MMPointer; L: integer ); 
•ocedure DisposePC var P: MMPointer; L: integer ); 
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procedure DisposeP( var P: MMPointer ; L: integer ); 
Abstract: Deallocate memory. 



Parameters: 

P - Pointer to the memory. 

L - Length in words, represents a length of 2**16. If L 
is odd, L+1 words are de-allocated. 

Errors: NilPointer if P is nil. BadPointer 1) if the Offset 
part is odd. 2) if Of f set+Length > size of segment. 3) if 
the node to be Dispose overlaps some node that is already 
free. 4) if the segment is not InUse or not a DataSegment. 



procedure NewP( S: SegmentNumber ; A: integer; var P: MMPointer; L: 
integer ) ; 

Abstract: Allocate memory. 

Parameters : 

S - Number of segment to allocate from. means the default 

data segment. 
A - Alignment of node in words relative to beginning of 

segment, represents an alignment of 2**16. if A is 

odd, A+1 is used as the alignment. 
P - Set to point to the memory that was allocated. If the 

data segment is full and cannot be increased, P is set 

to nil. 
L - Length in words, represents a length of 2**16. If L 

is odd, L+1 words are allocated. 

Errors: FullSegment if the segment has reached its maximum size 
and there isn't enough room for the node. FullMemory if 
NewP tries to expand the segment, but there enough physical 
memory to do so. UnusedSegment if S is not InUse. 
NotDataSegment if S is not a DataSegment. 
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)dule EtherlOIO; 

>stract: 

This module provides the client interface to the 10 Mbaud 
Ethernet microcode. 

Written by: Don Scelza 

Copyright (C) Three Rivers Computer Corporation, 1981 

i*******************} Exports {********»****♦******} 



lis module provides the raw I/O interface to the Three Rivers Computer 
:hernet system. The procedures in this module allow the client to send and 
»ceive packets on the net. 

>r details of the Physical and Data Link layers of the network see the 
)cument : 

le Ethernet A Local Area Network Data Link Layer and Physical Layer 
seeifications 

iC - Intel - -XEROX 

details on the Three Rivers hardware interface to the network see: 

;hernet Interface Programmers Guide 

•adeep Reddy 

>r details on the interface presented, to this module, by the Ethernet 
Lcrocode see the file: 

;her 10. Micro 

>nald A. Scelza 

)llowing is some general information about the client interface presented 
f the Ethernet microcode and -this module: 

; is possible to always have a receive pending. If a send command is 
cecuted while a receive is pending the internal state of the interface is 
aved in a register save area in memory. This is done by saving the VA of 
le DCB for the receive. After the send has completed the receive state is 
^loaded and the receive is restarted. 

i addition to the ability to do a Receive followed by a Send, it is also 
>ssible to do multiple Receives. The Receives are linked using the NextDCB 
'-"•d of the Ethernet DCB. When a Receive completes the next Receive in the 
n is started. 

)mmand information for the Ethernet driver is provided in an Ethernet 
*vice Control Block, DCB. All data areas referenced by pointers in the DCB 
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as well as the DCB itself must be LOCKED in memory until the request has 
completed, They can NOT be moved, The best way to do this is to mark the 
segment that the buffers are allocated from as UnMovable. This will allow 
the memory manager to place the buffers in a convient place in memory before 
they are locked down. 

The Ethernet driver needs to have a four (4) word area of memory in which it 
can save registers. A pointer to this area of memory is provided by the 
BuffPtr when a Reset command is executed. Once the Reset command has been 
processed this register save area can NOT be moved. To change the register 
save area another Reset command must be executed. 

The Ethernet DCB must be unmovable while the command is pending. 

To wait for the completion of a command it is possible to spin on the 
Command-In-Progress bit in the status block. This bit will be cleared when 
the requested command has been completed. 

After a receive the Bits field of the status block has the number of bits 
that were received. To translate this into the number of data bytes you 
must perform a number of operations. First divide it by 8. This will give 
the number of bytes that were received. If the number is not evenly 
divisible by 8 then there was a transmissintializeon error. After the 
division you must subtract the number of bytes in the header and the CRC. 
There is a total of 20 bytes in these two portions of the packet. 
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(l ports SystemDefs from SystemDefs; 
^rts System from System; 



module EtherlQIQ 



Define the types and variables used by the Network stuff. 
} 



fpe 



{ 

{ These are the valid commands for the Ethernet interface. 

{ } 

EtherCommand = (EReset, EReceive, EPromiscuousReceive , ESend); 

{ 

{ An Ethernet address is 48 bits long. It is made up of 6 

{ octets or in our case 3 words. 

{ } 

EtherAddress = packed record { An address on the net is 48 bits } 
High: integer; 

M •% si m 4is\^s*sTSMS*m 

Low: integer; 
end ; 

{ 

{ This record defines an Ethernet status block. The first 
15 bits of the block are defined by the hardware interface. 
The 16th bit of the first word and the second word are defined by the 
Ethernet microcode. 



^ 



Alignment : 
Locked : 
} 

EtherStatus = 
CRCError : 
Collision 
RecvTrans 
Busy: 
UnUsed4: 
ClockOver 
PIP: 

Carrier : 
RetryTime 
UnUsed12: 
UnUsed13: 
SendError 
CmdlnProg 
BitsRecv : 
end ; 



Double word 
Yes. 



packed record 
boolean 
boolean 
boolean 
boolean 
boolean 
boolean 
boolean 
boolean 

0..15; 

boolean 

boolean 

boolean 

boolean 

integer 



{ The status record. } 

{ There was a CRC error.} 

{ There was a collision } 

{ - receive has finished. 

{ The interface is bust. } 



1 for trans 



{ The microsecond clock overflowed. 
{ There is a Packet In Progress. } 
{ There is traffic on the net. } 



{ Could not send packet after 16 tries. 

{ There is a command pending. } 

{ Number of bits that were received . } 



{ 

{ This record defines the header for an Ethernet transfer. 



_ a ' 
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{ 

{ Alignment: 

{ Locked: 

{ } 



module EtherlOIO 



8 word . 
Yes. 



EtherHeader = packed record 
Dest: Ether Address; 
Src : Ether Address ; 
EType : Integer; 
end ; 



{ Type field defined by XEROX } 



{ This record provides the definition of an Ether Buffer. 

{.' 

{ Alignment: 1k word. 
{ Locked: Yes. 
{ } 

EtherBuffer = array [0..7493 of integer; 

{ 

{ Define all of the pointers that we need. 

{ ) 

pEtherStatus = "Ether Status ; 
pEtherBuffer = "EtherBuffer; 
pEtherHeader = "EtherHeader; 
pEtherDCB = "EtherDCB; 



This is the definition of an Ethernet Device Control Block. 



Alignment : 
Locked : 
} 



Quad word . 
Yes. 



EtherDCB = packed record 



HeadPtr : 
BuffPtr : 
StatPtr : 
Cmd : 
BitCnt : 
NextDCB: 
end ; 



pEtherHeader 
pEtherBuffer 
pEtherStatus 
Ether Command 
Integer ; 
pEtherDCB; 



{ Total bits in buffer and header 



This is the definition that is used to create the register save 
area. 

Alignment: Double word. 

Locked: Yes. 

} 

EtherRegSave = record 

RecvDCB: pEtherDCB; 
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SendDcb: pEtherDCB; 
end ; 

pEtherRegSave = "Ether Reg Save ; 



Following are the definitions that are used to deal with the 

micro-second clock. 

} 



The microsecond clock takes a two word combined control and 
status block. The first word of the block gives the number 
of microseconds to be loaded into the clock. 
The second word provides the status information from the 
clock. Once a clock command has been started it is 
possible to spin on the Cmd InProgress bit in the control 
block. When the bit is cleared the specified number of 
micro-seconds has elapsed , 



Alignment : 
Locked - 
} 



Double word 
Yes* 



type 



SClkDCB = pac 


ked record 


u Seconds : 


integer ; 


UnUsedO: 


boolean ; 


UnUsedl : 


boolean ; 


UnUsed2: 


boolean ; 


Un-UsedS: 


boolean ; 


UnUsed4: 


boolean ; 


UnUsed5: 


boolean ; 


UnUsed6 : 


boolean ; 


UnUsed7: 


boolean ; 


UnUsed8: 


boolean ; 


UnUsed9: 


boolean ; 


UnUsedIO: 


boolean ; 


UnUsedl 1 : 


boolean ; 


UnUsed12: 


boolean ; 


UnUsed13: 


boolean ; 


UnUsed14: 


boolean ; 


Cmd In Prog : 


boolean ; 


end ; 




uSClkDCB = ~u 


SClkDCB; 
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module EtherlOIO 



Define the constants for the address block supplied to Three Rivers by- 
Xerox . 

High 16 bits (2 octets) are 02 1C (Hex). 
Next 8 bits (1 octet) is JC (Hex). 

The low order byte of the second PERQ word as well as the third PERQ word 
are Three Rivers defined. Currently the low order byte of the second word 
is used to define the type of interface. The valid values are: 

- Interface is on an 10 option board. 

1 - Interface is on the 10 board 



const 



TRCCAdrMid = 31744; 
TRCCAdrHigh = 540; 
EBoardOption = 0; 
EBoardIO = 1 : 



{ 7C hex in the high order 8 bits. } 

{ 02 1C hex. } 

{ The interface is on an 1/0 Option board. } 

{ The interface is on the 1/0 board. } 



{ 

{ These are some other useful constants. 

{ } 
const 



MinDataBytes = 46; 
MaxDataBytes = 1500; 
NumDCBs = 16; 



{ Smallest number of data bytes in a packet. ] 

{ Largest number of data bytes in a packet. } 

{ The number of DCBs , commands, possible at } 

{ a single time } 



These 
} 



are the procedures exported by this module. 



procedure ElOInit; 

procedure E10I0(Cmd: Ether Command ; Header: pEtherHeader; Buff: pEtherBuff; 

Stat: pEtherStatus ; Bytes: Integer); 
procedure E10Wait( Stat : pEtherStatus); 
procedure E1 0Reset( MyAdr : Ether Address) ; 
function E10DataBytes( RecvBits : Integer): Integer; 
function E10GetAdr: Ether Address ; 

procedure E10State(var NumSend , NumReceive : Integer ) ; 
procedure E10WIO(Cmd: Ether Command ; Header: pEtherHeader; 

Buff: pEtherBuff; Stat: pEtherStatus; Bytes: Integer); 
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{ 

{ These are the exceptions that may be raised by this module. 

{ } 

exception ElONInited; 

Abstract: 

This exception will be raised if any procedures in this 
package are called before ElOInit. 



exception ElONReset; 

Abstract: 

This exception will be raised if any transfer commands 
are executed before a ElOReset is done. 



exception El OByte Count ; 
Abstract : 



This exception is raised if a byte count passed to this 
interface is not in the valid range. The number of 
data bytes in an Ethernet packet must be in the range 
46 <-> 1500, (MinDataBytes <-> MaxDataBytes) . 



exception ElODByteError ; 
Abstract : 



This exception is raised if the number of Bits passed 
to ElODataBytes does not form a valid packet. 



exception E1 OBad Command ; 



Abstract : 

This exception is raised if a bad command is given to 
any of the routines in this package. 



exception ElOTooMany; 



- 49 - 



POS D.6 Interface module EtherlOIO 

05 Feb 82 

Abstract: 

This exception is raised if more than NumDCBs commands 
are executed at any time. 

exception ElOSTooMany; 

Abstract: 

This exception is raised if more the client tries to 
execute more than one send. 

exception E10ReceiveDone( Stat : pEther Status) ; 

Abstract : 

This exception is raised when a receive command has 
finished. It is raised by the Pascal level interrupt 
routine for the net. 



Parameters : 

Stat will be set to the status pointer of the command 
that finished . 
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procedure ElOInit; 



Abstract: This procedure is used to initialize the Ethernet 
module. It must be called before any other procedure in 
this package are used. 

Side Effects: This procedure will allocate any memory used by 

this module . 



procedure E10IO(Cmd: Ether Command ; Header: pEtherHeader ; Buff: 
pEtherBuff; Stat: pEtherStatus ; Bytes: Integer); 

Abstract: This procedure is used to start an Ethernet I/O 
operation and return. 

Parameters: Cmd is the command that is to be executed. 

Header is a pointer to an Ethernet header block. The client 
must fill in all fields of this header. 

Buff is a pointer to the buffer that is to be sent or 
filled. 

Stat is a pointer to a status block for use during this 
command . 

Bytes is the number of data bytes that are to be 
transferred. This value must be between 46 and 1500 

Exceptions: ElONInited: Raised if this procedure is called before 
Ether Init . 

ElONReset: Raised if this procedure is called before EReset. 

E1 OByteCount : Raised if Bytes is not in the valid range. 

E 10Bad Command : This is raised if the command passed is not 
Send, Receive or PromisciousReceive . 

ElOTooMany: is raised if too many commands are executed at a 
given time. 

ElOSTooMany: is raised if more than one send command is 
executed . 
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procedure ElOWait( Stat : pEther Status) ; 

Abstract: This procedure will wait for the completion of some 
Ethernet request. 

Parameters: Stat is the pointer to the EtherStatus that was 
provided when the command was initiated. 

Exceptions: ElONInited: Raised if this procedure is called before 
ElOInit. 

ElONReset: Raised if this procedure is called before EReset. 



procedure E1 0Reset( MyAdr : Ether Address) ; 

Abstract: This procedure is used to reset the Ethernet interface. 

Parameters: MyAdr is an Ethernet address block that contains the 
address of this this interface. Once this address is set 
any packets that have a Source field that matches MyAdr will 
be received by the network interface. If there are no 
Receives pending then the packet will be dumped. 

Exceptions: ElONInited: Raised if this procedure is called before 
Ether Init. 

function E10DataBytes( RecvBits : Integer): Integer; 

Abstract: This procedure is used to obtain the number of data 
bytes that are in a packet that was received over the 
network. 

Parameters: RecvBits is the number of bits that were in the 
packet. This value will come from the BitsRecv field of the 
status block. 

Results: This function will return the number of data bytes that 
were in the packet. 
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Exceptions: ElONInited: Raised if this procedure is called before 
Ether Init . 

ElONReset: Raised. if this procedure is called before EReset. 

ElODByteError : Raised if the numebr of bits in the packet 
was not a multiple of 8 or if the number of data bytes was 
less than MinDataBytes . 



function ElOGetAdr: Ether Address ; 

Abstract: This function will return the address of this machine 



Exceptions: ElONInited: Raised if this procedure is called before 
ElOInit. 

ElONReset: Raised if this procedure is called before EReset. 



procedure E10State(var NumSend, NumReceive: integer); 



Abstract: This procedure is used to return the internal state of 
the Ethernet interface. 



Parameters: NumSend will be set to the number of Sends that are 
pending. 

NumReceive will be set to the number of receives that are 
pending . 



Exceptions: ElONInited: Raised if this procedure is called before 
ElOInit. 

ElONReset: Raised if this procedure is called before EReset. 



procedure E10WIO(Cmd: Ether Command ; Header: pEtherHeader ; Buff: 
pEtherBuff; Stat: pEtherStatus ; Bytes: Integer); 

Abstract: This procedure is used to start an Ethernet I/O 
operation and wait for it to complete. 
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Parameters: Cmd is the command that is to be executed. 

Header is a pointer to an Ethernet header block. The client 
must fill in all fields of this header. 

Buff is a pointer to the buffer that is to be sent or 
filled. 

Stat is a pointer to a status block for use during this 
command. 

Bytes is the number of data bytes that are to be transfered. 
This value must be between 46 and 1500 

Exceptions: ElONInited: Raised if this procedure is called before 
ElOInit. 

ElONReset: Raised if this procedure is called before EReset. 

ElOByteCount : Raised if Bytes is not in the valid range. 

ElOBadCommand : This is raised if the command passed is not 

Send, Receive or PromisciousReceive . 

ElOTooMany: is raised if too many commands are executed at a 
given time. 

ElOSTooMany: is raised if more than one send command is 
executed . 
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module Ether Interrupt ; 

Abstract : 

This module provides the interrupt service for the 10 MBaud 
ethernet. 

Written by: Don Scelza. 

Copyright (C) Three Rivers Computer Corporation, 1981 

{*******#******»«****} Exports {********************} 

imports Ether 1010 from Ether 1010; 

var 

StackPointer : Integer; 

DCBStack: array[ 1 . . NumDCBs] of pEtherDCB; 
RListHead, RListTail, SListHead: pEtherDCB; 
SendsPosted, RecvsPosted: Integer; 

function PopDCB: pEtherDCB; 
procedure PushDCB(Ptr: pEtherDCB); 
procedure E10Srv; 
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module Ether Interrupt 



function PopDCB: pEtherDCB; 



Abstract: Get the next free DCB from the stack. 



Results: Return a pointer to the next free DCB 



Side Effects: Move the stack pointer. 



procedure PushDCB(Ptr: pEtherDCB); 



Abstract: Push a free DCB onto the DCB stack 



Parameters: Ptr is a pointer to the DCB that is to be pushed onto 
the stack. 



Side Effects: Move the stack pointer. 



procedure E10Srv; 



Abstract: This is the 10 megabaud Ethernet interrupt routine 



Exceptions: This procedure will raise E1 OReceiveDone if a receive 
has completed . 
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module Except; 

Except - Perq Pascal Exception Routines. 

J. P. Strait 10 Dec 80. 

Copyright (C) Three Rivers Computer Corporation, 1980. 

Abstract : 

Module Except provides the following things: 

1) Definitions of the microcode generated exceptions. 

2) A procedure to tell the microcode which segment number these 
exceptions are defined in. 

3) The default handler of all exceptions. The compiler enables 
this handler in every main program. 

4) A Pascal routine to search the stack in when an exception is 
raised . 

Design: The file Except. Dfs is included into Perq. Micro as well 
as into this module. It defines routine numbers for the 
exceptions generated by the microcode. Note that there must be 
agreement between these constants and the routine numbers of the 
exception definitions. No program checks these — if you add or 
remove exception definitions you must be sure to update 
Except. Dfs in the appropriate way. 

The routine number of RaiseP is also defined in Except. Dfs as 0. 
'Since the microcode must know this, it is strongly suggested that 
it not be modified. 

The routine number of InitExceptions is not needed by the 
compiler or Perq. Micro, but it has been assigned routine number 1 
so that its number will not change when new exceptions are 
defined. This means that new exceptions may be defined without 
requiring that the operating system be re-linked. 

Version Number V2.9 
exports 

const Except Version = '2. 9'; 

procedure RaiseP( ES, ER, PStart, PEnd: Integer ); 
procedure InitExceptions; 

exception Abort( Message: String ); 

exception Dump( Message: String ); 

exception XSegmentFault( S1,S2,S3,S4: Integer ); { segment fault } 

exception XStackOverflow; { stack overflow } 

exception DivZero; {division by zero } 

exception MulOvfl; { overflow in multiplication } 

exception. Strlndx; { string index out of range } 
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exception 


StrLong ; 


{ 


stri 


exception 


InxCase ; 


{ 


arra 


exception 


STLATETooDeep; { 


exception 


UndfQcd; 


{ 


exec 


exception 


Undflnt ; 


{ 


unde 


exception 


IOSFlt; 


{ 


segm 


exception 


MPar ity ; 


{ 


memo 


exception 


ESt'ack; 


{ 


E-st 


exception 


OvflLI; 


{ 


Over 


exception 


Over Real 


; { 


floa 


exception 


UndeReal ■ 


{ 


floa 


exception 


RealDivO 


; { 


floa 


exception 


Real2Int 


, { 


floa 


var ExcSeg: Integer 


* • 





module Except 



ng to be assigned is too long } 
y index or case expression out of range } 
parameter in STLATE instruction is too large 
ution of an undefined Q-code } 
fined device interrupt detected } 
ient fault detected during I/O } 
try parity error } 
ack wasn't empty at INCDDS } 

flow in conversion to integer from Long Integei 
iting point overflow } 
iting point underflow } 
iting point division by zero } 
iting point real to_ integer overflow } 
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procedure InitExceptions ; 



Abstract: InitExceptions tells the microcode what segment number 
to use when raising its own exceptions. The segment number 
is the one that the system assigns to this module. 

Side affects: ExcSeg is set to the current segment number. 
The current segment is kept resident. 



procedure RaisePC ES, ER, PStart, PEnd: Integer ); 

Abstract: RaiseP is called to raise an exception. The compiler 
generates a call to RaiseP in response to 



raise SomeException( original parameters ) 

in the following way 

============================== Push original parameters onto 

the MStack. 

RAISE SegmentNumber ( SomeException) 
RoutineNumber ( SomeException) ParameterSize 



The microcode calls RaiseP in the following way 



Push parameters onto the MStack if appropriate. 
ParameterSize := WordsOf Parameters . 
Error := ErrorNumber, Goto( CallRaise) . 



Where CallRaise does the following 

SaveTP := TP. 

Push ExcSeg onto the MStack. 
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module Except 



Push Error onto the MStack. 

Push SaveTP-Parameter Size+1 onto the MStack. 

Push SaveTP+1 onto the MStack. 

call RaiseP. 



Parameters: 

ER - Routine number of the exception to be raised. 
ES - Segment number of the exception to be raised. 
PStart- Pointer to the original parameters (as an offset 

from the base of the stack) . 
PEnd - Pointer to the first word after the original 

parameters (as an offset from the base of the stack). 



Calls: Appropriate exception handler or HandleAll. 



Design: See the 
Architecture" 
enable blocks 
descriptors . 



'PERQ QCode Reference Manual, Q-Machine 
for a description of the format of exception 



and 



the 



format of variable 



routine 



RaiseP searches the exception enable list of each routine in 
the dynamic chain. When it finds one that matches ER and ES 
it searches the dynamic chain again to see if the specified 
handler is already active. If it is active, RaiseP 
continues searching the exception lists and dynamic chain 
where it left off. This is done in order to allow a handler 
to re-raise the same exception, and to prevent unlimited 
recursion in an exception handler that has a bug. 

If an exception handier is found, the original parameters 
are pushed onto the MStack and the handler is called with 
CALLV. 

If no exception handler is found, HandleAll is called. 



*** RaiseP may not contain any exception handlers. 
*** RaiseP must be guaranteed to be resident. 
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viule File Access; 



module FileAccess 



)stract: 

Mod ule uO nariuxe r esu ing } writing, entering and uej.eting iix€3 
independant from the directory structure. 

Written by the CMU Spice Group 
;rsion Number V1.7 
•##*******#**####*} exports {***************************} 

lports Arith from Arith; 
lports DisklO from DisklO; 
lports AllocDisk from Alloc Disk; 

motion CreateSpiceSegment( partition : integer; kind : SpiceSegKind) : SegID; 

•ocedure DestroySpiceSegment( id : SegID); 

•ocedure TruncateSpiceSegment( id : SegID; len : integer); 

•ocedure ReadSpiceSegment( id : SegID; f irstblk,numblks : integer; 

ptr : ptr DiskBuf fer ) ; 
•ocedure WriteSpiceSegmentC id : SegID; f irstblk ,numblks : integer; 

ptr : ptrDiskBuf fer ) ; 
•ocedure Index(logblk : integer; var indblk ,indof f : integer); 

:ception BadLength( len : integer); 

Abstract: Raised if try to truncate file to a length < 

Parameters: len is bad length 

:ception NotAFile(id: SegID); 

Abstract: Raised when an operation is attempted and the SegID 
passed does not 

seem to be the id for a valid file 

Parameters: id is the bad id 
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Procedure Index(logblk : integer; var indblk, indof f : integer); 

Abstract: Find the index block and the offset from the top of the 
block for a logical block of a file 

Parameters: logBlk - the logical block of the file to look up; 

may be negative 

indBlk - the logical block number of the index block which 
holds the address for logblk 

indoff - the offsetin indBlk to use in reading the address 
(the array index to use in DiskBuf fer~ . Addr ) . It is 
correctly set even if the indBlk is the FIBlk 

function CreateSpiceSegment(partition : integer; kind : SpiceSegKind) 
: SegID; 

Abstract: Create a new empty file on partition specified 

Parameters: partition is the partition in which to allocate file; 
kind is the 

Returns: ID of file created 

Errors: Raises NotAFile if block at id does not seem to be a 
valid FIBlk 



Procedure DestroySpiceSegmentC id : SegID); 

Abstract: Delete a file 

Parameters: id is the Segld of file to delete 

SideEffects: removes id from filesystem 

Errors: Raises NotAFile if block at id does not seem to be a 
valid FIBlk 

Procedure TruncateSpiceSegment( id : SegID; len : integer); 

Abstract: Removes blocks from file to make the new length len 

Parameters: id is the Segld of file; len is the new length (one 
greater than the last logical block number since files start 
at 0) 

SideEffects: Shortens the file 

Errors: Raises BadLength is length to truncate file to is < 
Raises NotAFile if block at id does not seem to be a valid 
FIBlk 
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Procedure ReadSpiceSegment( id : SegID; f irstblk,numblks : integer; ptr 
: ptrDiskBuffer) ; 

Abstract: Reads one or more blocks from file 

Parameters: id - the Segld of file; 

firstBlk - the logical blk # of first to read 

numBlks - the number of blocks to read 

ptr - where the data should be put NOTE: If the blocks 

specified to read don't exist; ptr* is filled with 

zeros 

Errors: Raises NotAFile if block at id does not seem to be a 
valid FIBlk 

Procedure WriteSpiceSegment( id : SegID; f irstblk,numblks : integer; 
ptr : ptrDiskBuffer); 

Abstract: Writes one or more blocks onto file 

Parameters: id - the Segld of file; 

firstBlk - the logical blk # of first to write 
numBlks - the number of blocks to write 
ptr - where the data should come from 

SideEffects: Changes the data in the file and may cause new 
blocks to be allocated and file length changed 

Errors: Raises NotAFile if block at id does not seem to be a 
valid FIBlk 
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Module FileDefs; 



Module FileDefs 



Abstract : 



Defines some constants and types needed by various people so 
File-System doesn't need to import DisklO in its export section 

Written by: Brad A. Myers 3-Mar-8l 

Copyright (C) 1981 Three Rivers Computer Corporation 
Version Number V1.2 
EXPORTS 

Imports GetTimeStamp from GetTimeStamp ;" {Using TimeStamp} 



const 
DBLZERO 

type 
FSBit8 
FSBitl6 
FSBit32 



= nil ; 



{a two word 0} 



= 0..255; 

= integer; 

= "integer; {will be a long when compiler knows about 'em} 



Const DISKBUFSIZE = 256; 



type SegID 

DiskAddr 



= FSBit 32; 
= FSBit32; 



{defined by hardware, 256 words per sec} 

{In SpiceSeg, the virtual address of the 

-1 block of a file} 

{The virtual address of a DiskBlock} 



SimpleName = 
PathName = 
PartialPathName 
FSOpenType r 
FSDataEntry = 



string[25l; {onl 
stringMOO]; {ful 
= string[80]; {fil 
(FSNotOpen, FSOpen 
packed record 
FileBlocks 
FileBits 
FileSparse 
FileOpenHow 
FileCreateDate 
FileWriteDate 
FileAccessDate 
FileType 
FileRights 
FileOwner 
FileGroup 
Filename 
end ; 
ptrFSDataEntry = "FSDataEntry; 



y the filename in the directory} 
1 name of file with partition and 
e name including all directories} 
Read, FSOpenWrite, FSOpenExecute) ; 



dev} 



integer; {Size of file in blocks} 
0..4096; {Number of bits in last 
Boolean; {true if can be sparse} 
FSOpenType; {howOpen} 
TimeStamp ; 
TimeStamp; 
TimeStamp ; 

integer; {see FileType .pas} 
integer; {protection code} 
FSBitS; {User Id of file owner} 
FSBit8; {Groupld} 
PartialPathName; 



blk} 
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>dule FileDir; 

>stract: 

The directory structure for PERQ FiieSystem Written by: CMU 

Spice Group 
jrsion Number V2.6 
;**********#************} £ X p 0r ts {**********************************} 

lports FileDefs from FileDefs; 

mction GetFileID(name : PathName) : SegID; 

mction PutFileID( var name : PathName; id : SegID) : boolean; 

motion DeleteFileID(name : PathName) : SegID; 

mction GetDisk(var name : PathName; var partition : integer) : boolean; 

tr 

DefaultPartitionName : SimpleName; {includes device name and ends in a ">" } 
DefaultDeviceName : SimpleName; {ends in a colon} 
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Function GetDisk(var name : PathName; var partition : integer) : 
boolean ; 

Abstract: Given a name, remove the device and partition 
specification and find the partition number 

Parameters: name - the full file name to parse; the device and 
partition are optional. The device and partition if there 
are removed from the name string; 
partition - set to the partition specified or the default 

Returns: False if specified device or partition malformed or not 
there 

SideEffects: Mounts the partition if not already 

Calls: FindPartition , MountPartition 

Function GetFileID(name : PathName) : SegID; 

Abstract: Find the SegID for name (does a lookUp) 

Parameters: name - the full name (including all directories and 
optional device and partition) of the file to look up 

Returns: The SegID of the file or DBLZERO if not there or 
mal-formed 

Calls: ParseFilename , GetRootDir ID, GetlDFromDir 

Function PutFileID( var name : PathName; id : SegID) : boolean; 

Abstract: enters name with SegID id into a directory 

Parameters: name - the full name (including all directories and 
optional device and partition) of the file to enter; it is 
changed to remove all ">..>" and ">.>"s and remove the 
device (the name returned can be entered in the FilelD 
block's FSData. Filename) . 
id - SegID of file ; 

Returns: True if file successfully entered; false if device, 
partition or a sub-directory is mal-formed NOTE: ***IT IS 
ILLEGAL TO CALL PutFilelD FOR A NAME THAT IS ALREADY IN 
THE*** ***DIRECTORY BUT THIS IS ONLY SOMETIMES CAUGHT IF 
ATTEMPTED*** 

Calls: ParseFilename, GetRootDir ID, GetlDFromDir, PutlDInDir 
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Function DeleteFileID(name : PathName) : SegID; 

Abstract: Removes the directory entry for name 

Parameters: name - the full name (including all directories and 
optional device and partition) of the file to remove from 
directory 

Returns: SegID of file removed from Directory or DBLZERO if not 
there or part of name is mal-formed 

Calls: ParseFilename, GetRootDir ID, GetlDFromDir 
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module FileSystem; 



module FileSystem 



Abstract : 



Spice Interim File System. 

Written by: Richard F. Rashid Date : February 24, 1981 

Copyright (C) 1981 - Carnegie-Mellon University 
Version Number V7.3 
{***********#***#****} Exports {********************} 

imports FileDefs from FileDefs; 



const 

FSVersion 

BlksPerFile 
FirstBlk 

LastBlk 

FIBlk 
BootLength 



StartBlk 



SysFile 
SEARCHSIZELIST = 5 



= ' 7 • 3 f * 

=#077777; 
= 0; 

=#077776; 

=-1; 

= 60 + 128; 



=BootLength ; 

= -1; 



File system version number } 

Max blocks in each file } 

Block number of the first data block } 

in a file } 

Block number of the last data block } 

in a file. } 

Block number of the File Information Block } 

Size of the bootstrap area on disk — the } 

first n blocks on the disk, the microcode } 

boot area is 60 blocks, the Pascal boot } 

area is 128 blocks (32K). } 

The block number of the FIBlk of the first} 

user file. } 

File ID of the system area on disk. } 

Max number of directories on search list. } 



{ Record for reading disk blocks } 



type 

DirBlk= Record 

Case Integer Of 
2: ( 

Buffer :Array[0. .2551 Of Integer 

); 

3: ( 

ByteBuffer: Packed Array [0..511] of FSBit8 
) 
End; 

PDirBlk= "DirBlk; 



FilelD 
Blk Numbers 



= integer ; 
= integer; 



SearchList = array[ 1 .. SEARCHSIZELIST] of PathName; 
ptr SearchList = "SearchList; 



var 



FSDir Prefix : PathName ; {current default directory including device and par 
FSSysSearchList : SearchList; 

function FSLookUpC File Name : PathName ;Var BlklnFile ,BitsInL31k : Integer): FilelD; 
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{uses current system search list} 

.otion FSLocalLookUpC FileName: PathName; Var BlklnFile » BitsInLBlk: Integer): 
FilelD; {doesn't use any search lists} 

jnction FSSearch(var slist : SearchList; var FileName : PathName; 

var BlklnFile, BitsInLBlk: integer) : FilelD; 

{uses specified search list instead of system one; is 
var so no copying; changes FileName to be full filename 
actually used} 

jnction FSEnter(FileName : PathName) : FilelD; 

•ocedure FSCloseCUserFile :FileID; Blks , Bits : Integer ) ; 

-ocedure FSBlkRead(UserFile .-FilelD; Block :BlkNumbers ; Buff : PDirBlk) ; 

-ocedure FSBlkWrite( UserFile :FileID; Block :BlkNumbers ; Buff : PDirBlk) ; 

-ocedure FSInit; 

•ocedure FSMount(disk : integer); 

-ocedure FSDismount(disk : integer); 

-ocedure FSSetPrefix (prefixname : PathName); {FSSetPrefix just assigns the 

vble; use FileUtils .FSSetPath 
to do processing on new path} 

-ocedure FSGetPref ix(var prefixname : PathName); 
jnction FileIDtoSegID( id : FilelD) : SegID; 
jnction SeglDtoFilelDC id : SegID) : FilelD; 

^.edure FSSetupSystem(bootchar : integer); 

jedure FixFilename(var filename : PathName; nulliserror : boolean); 
jnction FSIsFSDev(name : PathName; var devName: String): integer; 

cception FSNotFnd(name : PathName); 

Abstract: Raised if file looked up is not found. If this 
exception is not 

handled by client, the lookup or search will return 
zero 

Parameters: name is the name not found 

cception FSBadName(name: PathName); 

Abstract: Raised if file entered is illegal because: 

1) the device or partition specified is not valid 2) a 
directory name specified does not exist 3) the length 
of the simpleName is > 25 characters If this exception 
is not handled by the client, the Enter will return 
zero 

Parameters: name is the name that is illegal 

jnction FSInternalLookUp(FileName : PathName ; Var BlklnFile , BitsInLBlk : Integer ) : 
FilelD; 

exception FSDir Close; 
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Abstract: Raised if attempt to FSClose a directory file. This is 
usually 

a bad idea' since directories are spare files with an 
invalid length field. 

RESUME: Allowed. Will close the file as if nothing had happened. 

const 

FSDebug = false; 
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Function SegIDtoFileID(id : SegID) : FilelD; 

Abstract: Convert a two word Segld into a one word filelD 

Parameters: id is a two word segID 

Returns: A one word FilelD; it may be pos or neg or zero 

Function FileIDtoSegID( id : FilelD) : SegID; 

Abstract: Convert a one word FilelD into a two word SegID 
Parameters: id is a one word FilelD 
Returns: a two word SegID 

Procedure FSInit; 

Abstract: Initializes the FileSystem; call BEFORE FSSetUpSystem; 
Also initialize SegSystem and DirSystem 

^iHaFffoAf c • Tnif i al i 7p«« cofr? si ph 3^ Tnif.i al i 70H fcQ 1-.r*ij«» « spf.s 

Prefix and Search list to null 

Procedure FixFilenameC var filename : PathName; nulliserror : boolean); 

Abstract: Makes fileName a full path name by adding as many 
defaults as necessary 

Parameters: filename is name to fix; it is modified to have the 
full path name as follows: 
(dev):(rest) - no change 

:(rest) - adds DefaultDevice from AllocDisk to front 
>(rest) - adds DefaultPartition from AllocDisk to front 
(rest) - adds FSDir Prefix to front; if 

nullIsError-then no change to name if fileName = T * 

else changes ' f to FSDirPrefix 

Errors: allows STRLong to pass through from PERQ_String; This 
means that fileName is invalid 

Procedure FSMount(disk : integer); 

Abstract: Mounts the disk specified and prints all partitions 
Parameters: Disk is device to mount (0=HardDisk, 1=Floppy) 
Calls: DeviceMount and DisplayPartitions 



- 71 - 



POS D.6 Interface module FileSystem 

05 Feb 82 

Procedure FSDismountC disk : integer); 

Abstract: Dismounts the disk specified and prints all partitions 

Parameters: Disk is device to dismount (0=HardDisk, 1=Floppy) 

Calls: DeviceDismount and DisplayPartitions 

Procedure FSSetPref ix(pref ixname : PathName); 
Abstract: Sets the default pathName 

Parameters: pref ixname is new name; no checking is done 
SideEffects: changes FSDirPrefix 

Procedure FSGetPref ix( var prefixname : PathName); 

Abstract: Returns the default pathName 

Parameters: prefixname is current name; it is set with current 
value 

Function FSInternalLookUpC File Name : PathName ;Var 

BlkInFile,BitsInLBIk: Integer) : FilelD; 

Abstract: Does a lookup of FileName in the current path only. 

Parameters: FileName is a filename. BlklnFile and BitsInLBlk are 
set with the number of blocks in the file and the number of 
bits in the last block respectively. 

Returns: if file doesn't exist; else the FilelD of the file 

Errors: This procedure does not raise any errors 

SideEffects: Sets the FileAccessDate of the file 

Calls: FixFileName, GetFilelD, GetTStamp, SeglDToFilelD 

Function FSLocalLookUpC FileName : PathName ;Var 

BlklnFile, BitsInLBlk : Integer ) : FilelD; 

Abstract: Does a lookup cf FileName in the current path only. 
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Parameters: FileName is a filename. BlklnFile and BitsInLBlk are 
set with the number of blocks in the file and the number of 
bits in the last block respectively. 

Returns: if file doesn't exist; else the FilelD of the file 

SideEffects: Sets the FileAccessDate of the file 

Errors: Raises FSNotFnd if file not there (if not caught, then 
lookup returns 0) 

Calls: InternalLookUp 

Function FSSearch(var slist : SearchList; var filename : PathName; var 
blkinf ile ,bitsinlblk : integer) : FilelD; 

Abstract: Does a lookup of FileName straight first and then with 
each of the names in slist on the front. 

Parameters: slist - a searchList; any non- ,J entries are assumed 
to be paths and are put on the front of the filename. The 
first one to be tried is slist[1]. The first match is the 

nno used ' Mn r>hon)si na i q r\r\r\ o r\rt fc h <» valirHfcY <"» f* ^ h e Pntfiot 

in slist 

filename - the file to be looked up; it is changed to be 
the full name of the file if found. If fileName is 
empty then file not found. 

BlklnFile and BitsInLBlk - set with the number of 
blocks in the file and the number of bits in the last 
block respectively. 

Returns: if file doesn f t exist in any path; else the FilelD of 
the file 

SideEffects: Sets the FileAccessDate of the file 

Errors: Raises FSNotFnd if file not there (if not caught, then 
lookup returns 0) 

Calls: FSLocalLookUp, Concat 

Function FSLookUp( FileName : PathName; Var BlklnFile, BitsInLBlk: 
Integer) : FilelD; 

Abstract: Does a lookup of fileName first in the current path and 
then in each of the entries of the system search list. 

Parameters: filename is the file to be looked up; BlklnFile and 
BitsInLBlk are set with the number of blocks in the file and 
the number of bits in the last block respectively. 
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Returns: if file doesn't exist in any path; else the FilelD of 
the file 

SideEffects: Sets the FileAccessDate of the file 

Errors: Raises FSNotFnd if file not there (if not caught, then 
lookup returns 0) 

Calls: FSSearch with FSSysSearchList as the sList 

Function FSEnter (FileName : PathName) : FilelD; 

Abstract: Enters the file in the current path. 

Parameters: filename is the file to be entered. It may or may 
not exist; if not exists then is created; 

Returns: if file can't be created because part of its name is 
invalid (e.g. the device, partition or directory specified 
doesn't exist) else the FilelD of the file 

SideEffects: Creates a file if necessary and enters it into the 
directory; if creating, then sets size to zero and create 
date; Sets type to (UnknownFile) ; whether or , not 
creating; sets WriteDate and AccessDate 

Errors: Raises FSBadName if name passed is illegal due to a 
device, partition, or directory name in path not existing or 
target name is longer than 25 characters or illegal in some 
other way. If this exception is not caught, Enter returns 
zero . 

Procedure FSClose( UserFile :FileID; Blks , Bits : Integer ) ; 

Abstract: Closes a file (setting size). 

Parameters: UserFile is ID of file to close; Blks is the size of 
the file in blks and bits is the number of bits in the last 
block; 

SideEffects: Truncates file to size specified; does a FlushAll 

Errors: Raises FSDirClose if attempt to close a directory file. 
If resume from this exception, then closes normally. 
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Procedure FSBlkWriteCUserFile :FileID; Block :BlkNumbers ; Buf f :PDirBlk) ; 

Abstract: Writes one block onto a file. 

Parameters: UserFile is ID of file to write on Block is number of 
block to write (starting at zero); Buff is buffer holding 
data to write onto the file at Block 

SideEffects: Changes the data of block Block 
Calls: WriteSpiceSegment 

Procedure FSBlkRead(UserFile :FileID; Block:BlkNumbers ; Buf f :PDirBlk) ; 

Abstract: Reads one block of a file. If block specified is not 
part of the file then simply zeros the buffer 

Parameters: UserFile is ID of file to read from Block is number 
of block to read (starting at zero); Buff is buffer to copy 
data into 

Calls: ReadSpiceSegment 

Procedure FSSetupSystem(bootchar : integer); 

Abstract: Call this after FSInit to set up the system and print a 
lot of messages 

Parameters: boot char is ord of key held down to boot 

SideEffects: Mounts device from which booted; Mounts all of its 
-partitions Sets AllocDisk f s DefaultDeviceName and 
DefaultPartitionName. Sets FSDir Prefix ' to be root of 
current Partition and adds that path to the bottom of the 
search list 

Function FSIsFSDev(name : PathName; var devName: String): integer; 

Abstract: determine whether name is a file that the filesystem 
knows how to handle 

Parameters: name is a name of a file; devName will be assigned 
the device name IF NOT FSDevice DevName will be in upper 
case and does NOT contain the colon. 

Returns: if name doesn't contain a : or if dev is one the 
filesystem knows about; the index of the colon otherwise 



- 75 - 



POS D.6 Interface 
05 Feb 82 



Module FileTypes 



Module FileTypes; 



Abstract : 



This module exports the Types put in the FileType field of File 
FIBs. The types are stored as integers. Three Rivers reserves 
the first 512 types for their use. Customers are encouraged to 
choose numbers > 512 if they invent new file types 

Written by Brad A. Myers Feb. 2, 1981 

Copyright (C) 1980 Three Rivers Computer Corporation 
Version Number V1.2 
{WWWWWWWWWWWWW} EXPORTS {/////////////////////////} 



Const 



UnknownFile = 0; 

SegFile = 1 

PasFile = 2 

DirFile = 3 

ExDirFile = '4; 

FontFile r 5; 

RunFile = 6; 

TextFile = 7; 

CursorFile = 8; 

BinaryFile = 9; 

BinFile = 10; 

MicroFile =11; 

ComFile = 12; 

RelFile = 13; 

IncludeFile = 14; {included in a pas 

SBootFile = 15; {system part of boot 

MBootFile = 16; {microcode part} 

SwapFile = 17; {a file used for swapping by compiler or editor; leng 

not set} 
BadFile = 18; {created by the scavenger} 



{for non-Pas text files} 
{cursor bin files} 

{microcode output} 



file} 
file} 
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module Filelltils; 



Filesystem utilities not needed by the system 

Written by Brad Myers. March 5, 1981. 

Version Number V1.10 

{********************} Exports {********************} 

imports FileSystem from FileSystem; 

type 

ptr ScanRecord = ^ScanRecord ; 
ScanRecord = record 

Initial Call : boolean; 
Blk : DiskAddr; 
Entry : Integer; 
DirName : PathName; 
end ; 

Procedure FSDelete( filename : PathName); 

* *rf» ** ^ W ^ -\^ I * *. it^ hm*>*r M ** V *^ ^* ^* * * fr* V X • fc^ W 1 ««■*'■* G 4 4 & I. %* >^ H^ * V4 • * *-* A * * *■*»£ \*r • «^ ate Ml W ^. \^ J.1 (*• fc^j ^* « 

var id : FilelD) : boolean; 
Procedure FSRename( SrcName , DestName: PathName); 
Function FSMakeDirectoryC var DirName: PathName): FilelD; 
Procedure FSSetSearchList(sList : SearchList); 
Procedure FSPopSearchItem( var sList: SearchList); 

Procedure FSPushSearchltemCname : PathName; var sList: SearchList); 
Procedure FSAddToTitleLineCmsg: String); {adds as much of msg as possible tc 

title line after the current path] 
Exception DelError (FileName : PathName); 

Abstract: Raised when can't delete file (because not there) 

Parameters: FileName is file that can T t delete 

Exception RenError (msg : String; FileName: PathName); 

Abstract; Raised when can't rename file 

Parameters: msg is reason can't rename and fileName is file with 
the problem. To print message, use "WriteLn('** 

' ,msg , filename) ; " 

Exception MkDirErr (msg : String; dirName: PathName); 

Abstract: Raised when can't make a directory because 

1) a file named dirName already exists 2) dirName 
cannot.be entered (bad subdir part) 3) dirName is empty 
4) dirName is ROOT.DR (reserved directory name) 
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Parameters: msg explains problem with makedir attempt; 

dirName is name attempted to use. Use "WriteLn('** 
1 ,msg , dirName) ; " 

Exception SrchWarn( f ileName : PathName); 

Abstract: Raised if try to Pop last item or push into last hole 
of the 

Search List 

Parameters: ' ' if Pop; name of item trying to push if Push 

Resume: ALLOWED; if resume then does the operation anyway 

Exception SrchErr ( fileName : PathName); 

Abstract: Raised if try to Pop empty list or push onto full list 
for the 

Search List 

Parameters: Tf if Pop; name of item trying to push if Push 

Resume: NOT allowed 

Function FSExtSearchC var SList : SearchList; Extensions: String; 

var FileName : PathName; 
va>~ BlksInFile, BitsInLBlklnLBlk : Integer) : FilelD 

Exception RenToExistC fileName : PathName); 

Abstract: Raised when try to rename to a file that already 
exists. Not 

raised if renaming a file to its own name (no-op). 

Parameters: fileName - new name that already exists 

Resume: ALLOWED; If you wish to rename anyway; just continue and 
FSRename 

will delete the DestName; In this case; you should t?e 
prepared to accept DelError; 

Exception RenDir ( fileName : PathName); 

Abstract: Raised when try to rename a directory. 

Parameters: fileName - name of the source directory. 

Resume: ALLOWED; If you wish to rename anyway; just continue and 
FSRename 

will do the operation. RenToExist etc. may still be 
raised . 

Procedure FSGetFSData( id : FilelD; pData: ptr FSDataEntry) ; 
Procedure FSSetFSData( id : FilelD; pData: ptrFSDataEntry) ; 
Procedure FSRemoveDotsC var fname: PathName); 
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module FileUtils 
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Procedure FSDelete( filename : Pathname); 

Abstract: Deletes filename from directory and from filesystem; 
fileName is deleted from the current path only (not search 
lists) if it doesn f t contain device or partition info 

Parameters: filename is the name of the file to be deleted 

SideEffects: filename is deleted from the current directory if it 
exists; if not then nothing is done (and the user is not 
notified) 

Calls: DeleteFilelD; DestroySpiceSegment 

Errors: Raises DelError( fileName) if can't delete file 

Procedure FSRename(SrcName , DestName: PathName) ; 

Abstract: Changes the name of SrcName to DestName; both are in 
the current path (not search lists) if not fully specified 

Parameters: SrcName is the name of the file to change and 
DestName is the name it should be given 

Returns: True if rename is successful; false if can't be done 
because: 

1) - destName already exists 

2) - SrcName and destName are in different partitions 

3) - SrcName doesn't exist 

4) - SrcName or DestName is malformed 

SideEffects: The name of the file corresponding to SrcName is 
changed 

Calls: DeleteFilelD; DestroySpiceSegment 

Errors: Raises RenError (msg , fileName) - if can't rename file 
where message explains why (do "WriteC 1 ** ', msg , fileName)." 
in handler) Raises RenToExist( DestName) - if filename 
already exists; If you wish to rename anyway; just continue 
and FSRename will delete the DestName; In this case; you 
should be prepared to accept DelError; 
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Function FSScan(scanptr : ptrScanRecord ; var name: SimpleName; var id 
: FilelD) : boolean; 

Abstract: At each call returns the next entry in a directory. 
The names returned are in random order. 

Parameters: scanPtr is a pointer to a ScanRecord which controls 
the scan. At the first call, scanPtr" . InitialCall should be 
set to true and scanPtr~ .dirName should be set to the 
directory to scan through. No fields should be modified by 
the caller after the initial setting. The dirName field of 
the scanPtr record is modified to contain the Full path name 
of the directory, name is set to the name of the file found 
on this call and id is its filelD; scanPtr is modified 
after each call so the next call will return the next name 
in the directory 

Returns: True if a valid name and id returned; false if the 
directory has been exhausted in which case name and id are 
NOT valid 

Function FSMakeDirectoryC var dirName: PathName) : FilelD; 

Abstract: Create a new directory named dirName. 

Parameters: DirName is the name of the directory to create; the 
name is changed to be the full path name of the directory 
created 

Returns: The filelD of the directory 

SideEffects: Creates a file named dirName (appending a " . DR" to 
end if not there. Sets the FileType field to DirFile; and 
sets the FileBits to 4096 

Errors: Raises MkDirErr (msg , dirName) if 1) a file named dirName 
already exists 2) dirName cannot be entered (bad subdir 
part) 3) dirName is empty 4) dirName is ROOT.DR (reserved 
directory name) where msg describes error. Do not continue 
from this signal 

Procedure FSSetSearchList(sList : SearchList); 

Abstract: Assign the system search list. 

Parameters: sList is new search list. It is a bad idea to not 
include a partition which contains a full set of system 
files 

SideEffects: Changes system search list 
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Procedure FSPopSearchltemC var sList: SearchList); 

Abstract: Removes the most recent item from the search list 

Parameters: sList is search list to pop from (it is modified) 

Errors: Raises SrchWarn('') if try to pop last item; if continue 
from it then pops it anyway; Raises SrchErr('') if list 
empty and try to pop; don't continue from this one 

Procedure FSPushSearchItem(name : Pathname; var sList: SearchList); 

Abstract: adds name to the front of the search list. 

Parameters: name is new name to add to the front of the search 
list searchList is modified to have name at front 

Errors: Raises SrchWarn(name) if try to push into last item; if 
continue from it then pushes it anyway; Raises SrchErr(name) 
if list full and try to push; don't continue from this one 

Environment: Assumes oldest item in list is at high position 
(e.g. 5) 

Procedure FSAddToTitleLine(msg : String); 

Abstract: adds as much of msg as possible to title line after the 
current path which is truncated to 35 characters 

Parameters: msg is string to be displayed. The first 43 
characters of it are displayed 

Side Effects: Changes current window's title line 

Procedure FSGetFSData( id : FilelD; pData: ptrFSDataEntry) ; 

Abstract: Returns the FSDataEntry description of a file 

Parameters: id is the FilelD for the file that data wanted for 
pData is a pointer to a data block to which the FSData is 
copied. Memory for this pointer must be allocated, before 
the call 
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Procedure FSSetFSData( id : FilelD; p'Data: ptrFSDataEntry) ; 

Abstract: Changes the FSDataEntry of .a file 

Parameters: id is the filelD of the file to be modified pData is 
the FSDataEntry to set id to. The entire FSDataEntry 
description of id is changed , so the user should use 
FSGetFSData to read the FSDataEntry and then change the 
desired fields only 

Side Effects: Changes the FSDataEntry for id 

Function FSExtSearch( var SList : SearchList; Extensions: String; var 
FileName : PathName; var BlksInFile, BitsInLBlklnLBlk: Integer) : 
FilelD; 

Abstract: FSExtSearch performs a breadth-first lookup of a file 
using a specified searchlist and a list of extensions. The 
search order is as follows: 1) Try the name with each 
extension in the current directory, 2) Repeat steps 1" in 
each path specified in the searchlist. If the file is 

■f*<-\ 1 1 r-> H +■ l*i *a Cil nMoma to r>Wpri(TaH i- rs V> o 4- V» fi full f i 1 o noma 

xv/Mliu 9 uul i J. J. C ilCiiu ^ j» u ^iiungCU **>»» k/ v» v/iiC *. \* j. j. x. j. j. C iiuiuv 

actually found. 

Parameters: 

SList - Searchlist to use. 

Extensions - List of extensions to try with a single space 
after each extension. E.g. T .Pas .Micro .Cmd .Dfs ' . 
The string must have a single trailing space. A single 
leading space or a pair of adjacent spaces causes 
FSExtSearch to look for the file exactly as typed (with 
no extension appended). Other extra spaces are not 
allowed. If Extensions does not end in a space, then 
one added . 

FileName - Name of file to find , set to be the full name 
of the file that was actually found. 

BlksInFile - Length of file in blocks. 

BitsInLBlk - Bits in last block of file. 



Returns: if file not found or id of file 
Errors: Raises FSNotFnd if file not found 
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module FileUtils 



Procedure FSRemoveDots( var fname: PathName) ; 

Abstract: Removes "."s and ".."s from file name leaving correct 
full name 

Parameters: fname is file name. It is changed to not have dots. 
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module GetTimeStamp; 



module GetTimeStamp 



GetTimeStamp - Perq get time routine. 

J. P. Strait 1 Feb 81 . 

Copyright (C) Three Rivers Computer Corporation, 1981. 

Abstract : 

GetTimeStamp implements the read-time-as-TimeStamp function for 
the Clock module. See the Clock module for more details. 

Design: GetTimeStamp is a separate module so that it may be 
imported into the resident system without importing all the other 
Clock routines. Once virtual memory is implemented, GetTimeStamp 
and Clock should be merged into a single module. 

Version Number V1.4 

{/////////////////////////} Exports {WWWWWWWWWWWW} 

const GetTSVersion = » 1.4'; 
type TimeStamp = packed record 

f 4-V»^ ■(* -1 *\~\ A <s "ir> Uni e m ^* n rw* A «rfl r\ir* A ay* ^A 4-Vi-io ygn ^" /**i rtnf i mi 70 Ki f s \ 

\ ulic ii.ciuo xlx uiiJLO 1 cv;ui vu at c ui uci Cvj i>iixq rt&y wO O p o j. ui jl ^ C i/i>/u j 

Hour: 0..23 

Day: 1..31 

Second: 0..59 

Minute: 0..59 

Month: 1..12 

Year: 0..63 
end ; 



{ year since 1980 } 



TimeReference = record 

Lower : Integer ; 
Upper: Integer 
end ; 

procedure GetTStamp( var Stamp: TimeStamp ); 



var PastStamp: TimeStamp; 
Past: TimeReference; 
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procedure GetTStamp( var Stamp: TimeStamp ); 

Abstract: returns a timeStamp for the current time 

Parameters: Stamp is set to be the stamp for the current time 
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module gpib 



Abstract: 

Support routines for PERQ GPIB devices. The package maintains a 
buffer (gpCommandBuf fer) which holds either data bytes (sent with 
procedure gpPutByte) or Auxiliary commands (sent 



gpAuxCommand) . The buffer 
gpFlushBuf fer is called. 
gpAuxCommand is called, it 
when gpPutByte is called, 



is sent to 

If the 
will do a 



the 9914 when full, or 
buffdr has data bytes 
gpFlushBuf fer. 



with 
when 
when 



Similarly , 



it will flush the buffer, if auxiliary 



commands are in gpCommandBuf fer . 



writen by Brian Rosen 
Copyright(C) 1980, Three 



Rivers Computer Corporation 



Version Number VI. 3 



1.3 



exports 
const GpibVersion = 

gpBufSize = 32; 

gpBufMax = 31; {gpBufSize - 1} 
{ the following codes are the IEE488-1975 Controller Command Codes 
they are issued by the Controller-In-Charge while asserting ATN } 

gpacg r #000; {addressed group command} 

gpdcl = #024; {device clear} 

gpget = #010; {group execute trigger} 

gpgtl = #001; {go to local} 

gplag = #040; {listen address group} 

gpllo = #021; {local lockout} 

gpmla = #040; {my listen address} 

gpmta = #100; {my talk address} 

gpmsa = #140; {my secondary address} 

gpp-pc = #005; {parallel poll configure} 

gpppe = #140; {parallel poll enable} 

gpppd = #160; {parallel poll disable} 

gpppu = #025; {parallel poll unconfigure} 

gpscg = #140; {secondary copmmand group} 

gpsdc = #004; {selected device clear} 

gpspd = #061; {serial poll disable} 

gpspe = #060; {serial poll enable} 

gptct = #011; {take control} 

gptag = #100; {tank address group} 

gpuag = #020; {universal address group} 

gpunl r #077; {unlisten} 

gpunt = #137; {untalk} 

{ these commands are the major state change control commands 
of the TMS9914 chip which forms the interface to the GPIB 
Consult the TI documentation on the TMS9914 for more information} 

{These definitions are order dependent} 

gpAuxiliaryCommands = (gpswrst, {Chip Reset} 

gpdacr, {Release DAC holdoff} 
gprhdf, {Release RFD holdoff} 
gphdfa, {Holdoff all data} 



type 
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var 



gpParmType = ( 
gpByte = 0. .25 
gpRange = 0. .g 
gpDeviceAddres 
gpBuffer = pac 
gppBuffer = "g 
gpCommandBuf fe 
gpBufPtr : 0. .g 
gpHaveDataByte 



gphdfe , 

gpnbaf , 

gpfget, 

gprtl, 

gpfeoi , 

gplon, 

gpton, 

gpgts, 

gptca, 

gptcs, 

gprpp, 

gpsic, 

gpsre, 

gprqc, 

gprlc, 

gpdai , 

gppts, 

gpstdl, 

gpshdw) ; 

gpOff, gpOn, gpDo 

5; {Data byte 

pBuf Size ; 

s = 0. .31 ; 

ked array [gpRang 

pBuffer ; 

r : gppBuffer ; 

pBuf Size ; 

5, gpHaveAuxiliar 
{true if buffer 



module gpib 



Holdcff on End} 

Set NewByteAVailable false} 

Force Group Execute Trigger} 

Return to Local} 

force End or Identify} 

Listen Only} 

Talk Only} 

G0T0 Standby} 

Take Control Asynchronously} 

Take Control Synchronously} 

Request Parallel Poll} 

Set Interface Clear} 

Set Remote Enable} 

Request Control} 

Release Control} 

Disable All Interrupts} 

Pass Through next Secondary} 

Set T1 Delay} 

Shadow Handshake} 
ntCare) ; {parameters for Aux Commai 
for gpib transactions} 

{legal addresses for devices on Gi 
e] of gpByte; 

{place to put commands} 
{pointer to gpCommandBuf fer} 
yCommands: boolean; 
in use} 



The package maintains a buffer ( gpCommandBuf fer ) which holds 
either Data bytes (sent with proceedure gpPutByte) 
or Auxialiary Commands (sent with gpAuxCommand ) 



} 



The buffer is sent 
is called . If the 
called, it will do 
is called , it will 
gp Command Buffer 



to the 9914 when full, or when ghForceBuf fer 
buffer has data bytes when gpAuxilair yCommand 
a gpForceBuf fer . Similarly, when gpPutByte 
force the buffer if auxiliary commands are in 



is 



{ Initialze GPIB package, called once only, turns off tablet } 
procedure gplnit; 

{ Send an auxiliary command to TMS9914 

some commands require a parameter (gpOff/gpOn) } 
procedure gpAuxCommand (gpCmd : gpAuxiliaryCommands ; gpparm rgpParmType) ; 

{ Put a data byte or a Control byte out on the data bus 

TMS9914 must be in Controller Actives State if the byte is a 
controller command byte. Must be in Talk Only if a data byt« 
procedure gpPutByte(gpData : integer); 

{ Sends all bytes in buffer } 
procedure gpFlushBuf fer ; 

{ Set TMS9914 to be a Talker, set a device to be a listener 
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This procedure takes control of the bus, unlistens and untalks 
all devices (including itself), and sets a listener with 
MyListenAddress then sets TMS9914 to be the talker with TalkONly } 
-ocedure gpITalkHeListens(gpAddr : gpDeviceAddress) ; 

{ Set TMS9914 to be a Listener, set a device to be a talker 

This procedure takes control of the bus, unlistens and untalks 
all devices (including itself), and sets a talker with 
MyTalkAddress then sets TMS9914 to be the listener with ListenONly} 
-ocedure gpHeTalksIListen(gpAddr : gpDeviceAddress); 

{ turn the BitPad (device addres #10) off } 
-ocedure gpTbltOn; 

{ turn the BitPad back on again } 
-ocedure gpTbltOff; 

{ Send a buffer of user data to the 9914 } 
-ocedure gpSend(var gpBuf: gppBuffer; gpCount: gpRange); 

{Get a buffer of data from the 9914 (Not implemented yet) } 
-ocedure gpReceive(var gpBuf: gppBuffer; gpCount: gpRange); 

{ Get a byte of data from the GPIB } 
jnction gpGetByte: gpByte; 

cception GPIBerror (SoftStatus : integer); 

Abstract: 

Raised when GPIB encounters an error indication in 
softstatus from UnitIO or IOCRead. The condition 
should be corrected and the operation retried. The 
most likely error is a timeout: IOETIM (See IOErrors) . 
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moauie gpio 



procedure gplnit; 
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Module Helper; 

WJHansen Jan 82. 

Copyright (C) Three Rivers Computer Corporation, 1982. 

Abstract : 

Reads an index file and presents options for assistance to the 
user . 

Version Number V1 . 1 
exports 

imports FileDefs from FileDefs; {for PathName} 

procedure GiveHelp(FName : PathName) ; 
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procedure GiveHelpC FName : Pathname) ; 

Abstract: Reads a help index and displays it. Lets user ask for 
information on topics in the index and displays the files 
containing these topics. 

Parameters : 

FName - Name of the file containing the index. The path to 
this file is used as the path to the individual help 
files. 
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Module 10; 

Abstract : 

PERQ Raw 10 Drivers - Compatibility file. 

Written by: Miles A. Barel 

Copyright (C) 1980 Three Rivers Computer Corporation 

The 10 module has been split into four modules: I0_lnit, 
I0>Unit, I0_0thers, and I0_Private. This module is provided for 
compatibility. It imports the first three modules in its exports 
section. I0_Private is not exported because it provides 
definitions which were private in the old 10 module and is used 
only by the new 10 modules. 

Design: 1) Interrupt routines must *never* cause segment faults. 
2) UnitIO must increment and decrement the IOCount of the 
segments which are involved in 10. 3) Segment faults must 
*never* happen while interrupts are off. 
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Module IC 



I*******************************} Exports {#**#*»*#*#*#***##*****##**;. 

Const lOVersion = '4.8'; 



Imports I0_Init from I0_init; 
Imports I0_Unit from I0_Unit; 
Imports I0_0thers from I0_0thers; 
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Module IOErrMessages 



Abstract: 

This module exports a procedure to return an error string for a 
disk error 

Written by : Brad A. Myers May 12, 1981 Copyright (C) 1981 - 

Three Rivers Computer Corporation 
Version Number VI . 1 
{/////////■/////////////////} EXPORTS {\\\\\\\\\\\\\\\\\\\\\\\} 

Function IOErrString(err : integer): String; 
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Module 10 Err Mess ages 



Function lOErr String ( err : integer): String; 

Abstract: Returns a string describing a the error number 
Parameters: err is the error number returned by UnitIO 
Returns: A string describing the error 
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Module IOErrors 



Module IOErrors 



Abstract : 



I/O System EitOt Code Definitions 

Copyright (C) 1981,1982 - The Three Rivers Computer Corporation 
Version Number V1.2 
Exports 

Imports SystemDefs from SystemDefs; {using Ether3MBaud} 



Const 



IOEIOC 


= 


1; 






IOEIOB 


= 


0; 




IOEBUN 


— 


-1; 






IOENBD 


= 


-2; 






IOEWRF 


~ 


-3; 






IOEBSE 


= 


-^; 






IOEILC 


~ 


-5; 






IOENHP 


= 


-6; 






I0EADR 


r 


-7; 






IOEPHC 


= 


-8; 






IOELHC 


z 


-9; 






IOEDAC 


= 


-10 






IOEDNI 


= 


-11 






IOEUDE 


s 


-12 






IOENCD 


= 


-13 






IOECBF 


~ 


-14 






IOELHS 


s 


-15 






I0ELHB 


s 


-16 






IOECOR 


2 


-17 






IOEDNR 


~ 


-18 






IOEMDA 


3 


-19 






IOEMHA 


r 


-20 






IOEDNW 


~ 


-21 






IOECMM 


= 


-22 






IOESNF 


r 


-23 






IOEOVR 


r 


-24 






IOEUEF 


= 


-25 






IOESOR 


= 


-26 






IOETIM 


= 


-27 






IOEFRS 


s 


-28 






IOEDRS 


= 


-29 






IOET0 


= 


-30 






Ether3MBa 


UC 


I then} 




IOEPTL 


= 


-31 


t 


{ 



{$ifc 



IOEFirstError = -31; 
{$elsec} 

IOEFirstError = -30; 
{$endc} 

IOELastError = 0: 



10 Complete } 

10 Busy } 

Bad Unit Number } 

Raw Block 10 to this device is not implemented 

Write Failure } 

BlockSize Error } 

Illegal Command for this device } 

Nil Header Pointer } 

Address Error } 

Physical Header CRC Error } 

Logical Header CRC Error } 

Data CRC Error } . 

Device Not Idle } 

Undefined Error I } 

Device is not a character device } 

Circular Buffer Full } 

Logical Header SerialNum Mismatch } 

Logical Header Logical Block Number 

Cylinder Out of Range } 

Device not ready } 

Missing data address mark } 

Missing header address mark } 

Device not writable } 

Cylinder mis-match } 

Sector not found } 

Overrun } 

Undetermined equipment fault } 

Sector out of range } 

Time out error } 

Floppy recalibrate done } 

Disk recalibrate done } 

Can't find track zero } 

{ Ether3 - received packet too large } 



Mismatch } 
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Module I0_lnit; 

I0_Init - Initialize the 10 system. 

Miles A. Barel ca. 1 Jan 80. 

Copyright (C) 1980, Three Rivers Computer Corporation 

Abstract : 

I0_Init initializes the Interrupt Vector Table, the Device Table 
and associated buffers, the Screen Package, the tablet and 
cursor, and the Z80. 

Version Number V5-9 

{********#* x##x*#** } Exports {a********************} 



Procedure InitIO; 
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Procedure InitIO; 



Abstract: Initio initializes the Interrupt Vector Table, the 
Device Table and associated buffers, the Screen Package, the 
tablet and cursor, and the Z80. 
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Module IO_Others; 

I0_0thers - Miscellaneous 10 routines. 

Miles A. Barel ca. 1 Jan 80. 

Copyright (C) 1980, Three Rivers Computer Corporation 



Module 10 Others 



Abstract : 

I0_0thers exports routines for the Cursor, 
and Keyboard. 



Table, Screen, Time, 



Version Number V5.7 
{a*********************} 



Exports {##**####**#****#******##} 



Imports SystemDefs from SystemDefs; 
{ tablet/cursor procedures } 



Type 



CursFunction = (CTWhite, CTCursorOnly, CTBlackHole, CTInvBlackHole 

CTNormal, CTInvert, CTCursCompl. CTInvCursCompl ) ; 
TabletMode = (relTablet, scr AbsTablet , tabAbsTablet , offTablet) ; 
CursMode = (Off Cursor, TrackCursor, IndepCursor ) ; 
CursorPattern = array[ 0. . 63 , 0. . 31 of integer; 
CurPatPtr = "CursorPattern; 



Var 



TabRelX, TabRelY: integer; 
TabAbsX, TabAbsY: integer; 
TabFinger: boolean; 

boolean ; 

: boolean 



TabSwitch 

TabWhite 

TabGreen 

TabBlue 

Tab Yellow 

TabMouse 



boolean 
boolean 
boolean 
integer 



DefauItCursor : CurPatPtr; 



{ tablet relative coordinates } 

{ tablet absolute coordinates } 

{ finger on tablet } 

{ switch pushed down } 
True if white button down } 
True if green button down } 
True if blue button down } 
True if yellow button down } 
Actual output from mouse } 

{ default cursor pattern } 



Procedure lOLoadCursor ( Pat : CurPatPtr; pX, pY: integer); 

{ load user cursor pattern } 

Procedure I0ReadTablet( var tabX, tabY: integer); 

{ read tablet coordinates } 

Procedure I0SetFunction(f : CursFunction); 

Procedure I0SetModeTablet(m: TabletMode); 

{ set the mode to tell what kind of 
tablet is currently in use } 

Procedure IOCurscrMode (m: CursMode); 

{ if track is true, then Tablet 

coordinates are copied every 1/60th 

second into the cursor position, if 
indep, then coordinates are changed 

only by user. If off, then no 
cursor displayed } 
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Procedure IOSetCursorPos( x ,y : Integer); 

{ if trackCursor is false, then sets 
cursor x and y pos. If tracking, then 
sets both tablet and cursor. } 

Procedure IOSetTabPos (x,y: Integer); 

{ if trackCursor is false, then sets 
tablet x and y pos. If tracking, then 
sets both tablet and cursor } 

Procedure IOReadCursPicture(pat : CurPatPtr; var px , py: integer); 

{ copies current cursor picture into 
pat and sets px and py with the 
offsets for the current cursor } 

Procedure IOGetTime(var t: double); { Get the double word 60 Hertz time } 

{Procedure to change screen size} 

Procedure IOScreenSize(newSize : integer; complement: Boolean); 

{ newSize is number of scan lines in 
new screen; must be a multiple of 
128. Complement tells whether the 
rest of the screen should be the 
opposite color from the displayed 
part } 

{ disable/enable keyboard interrupts } 

Procedure I0KeyDisable( var OldKeyEnable : Boolean ); 

Procedure I0KeyEnable( OldKeyEnable: Boolean ); 

{ clear the 10 type-ahead buffer } 
Procedure lOKeyClear; 
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procedure IOCursorMode( M: CursMode ); 



Abstract : 

Sets the mode for the cursor. If the mode m is set to 
TrackCursor, Tablet coordinates are copied every 1/60th 
second into the cursor position. If it's set to 
IndepCursor, coordinates are changed only by the user. If 
it is set to Off Cursor, no cursor is displayed. 



Parameters: 

m - the new mode for the cursor. 

procedure IOSetModeTablet( M: TabletMode ); 



Abstract: 

Sets the mode to tell what kind of tablet is currently in 
use . 



Parameters : 

m - the mode for the tablet. 

procedure lOLoadCursor ( Pat: CurPatPtr; pX, pY: integer ); 

Abstract : 

Loads a user cursor pattern into the screen cursor. 

Parameters : 

Pat - a pointer to a cursor. It should be quad-word 
aligned . 

pX and pY - offsets in the cursor where the origin is 
thought to be. For example, if the cursor is a bull's 
eye, 31 bits diameter flushed to the upper left corner 
of the cursor box, using (pX, pY) = (15, 15) will have 
the cursor surround the things pointed at. 

NOTE: This procedure supports a cursor which is 56 x 
64; with a scan line length of 4 
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procedure IQReadCursPicture( Pat: CurPatPtr; var pX, pY: integer ); 



aostract: 

Copies the current cursor picture into Pat and sets pX and 
pY with the offsets for the current cursor. 



Parameters : 

Pat, pX, and pY are filled with data on the current cursor. 
Note that Pat must be quad-word aligned. 



Procedure I0SetFunction( f: CursFunction ); 

Abstract: 

Sets the cursor function. 

Parameters: 

f - the function to set the cursor to. 

procedure IOSetCursorPos( x, y: integer ); 

Abstract: 

If the cursor* s mode is not TrackCursor, this procedure sets 
the cursor's x and y positions. If tracking, it sets both 
tablet and cursor. 

Parameters: 

x and y - the new cursor coordinates. 

procedure I0SetTabPos( x, y: integer ); 

Abstract: 

If the cursor's mode is not set to TrackCursor, lOSetTabPos 
sets the tablet's x and y positions. If the mode is 
TrackCursor , both tablet and cursor are set. 
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Parameters: 

x and y - the new tablet coordinates. 

procedure I0ReadTablet( var tabX, tabY: integer ); 

Abstract: 

Reads tablet coordinates. 

Parameters : 

tabX and tabY - set to x and y values of the tablet. 

Procedure IOScreenSize( newSize: Integer; complemented: Boolean ); 

Abstract: 

Changes the amount of screen visible to the user (the rest 
is turned off, hence not displayed). The cursor is 
prevented from going into the undisplayed part of the 
screen . 

Parameters : 

newSize - number of scan lines in new screen; it must be a 
multiple of 128. 

Complement ~ tells whether the rest of the screen should 
be the opposite color of the displayed part. 

procedure IOGetTime( var t : double ); 

Abstract : 

Reads the 60 Hertz clock. 

Parameters : 

t - set to the new time. 
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procedure IOKeyDisableC var OldKeyEnable : Boolean ); 



Abstract: IOKeyDisable is used to disable keyboard interrupts. 
This is used to delay processing of control-c, 
control-shift-c and control-shift-d at critical times. The 
old value of the keyboard interrupt enable is returned and 
must be passed back to lOKeyEnable when re-enabling 
keyboard interrupts. Characters typed while keyboard 
interrupts are disabled are remembered. When keyboard 
interrupts are re-enabled, the characters are processed. 



Parameters : 

OldKeyEnable - set to the old value of the enable. 



procedure IOKeyEnableC OldKeyEnable: Boolean ); 

Abstract: lOKeyEnable is used to enable keyboard interrupts. The 
old value of the keyboard interrupt enable (as returned from 
IOKeyDisable) must be passed to lOKeyEnable when re-enabling 
keyboard interrupts. If characters were typed while 
keyboard interrupts were enabled, I-OKeyEnable calls Keylntr 
to process those characters. The master interrupt control 
(INTON and INTOFF QCodes) must be on when this procedure is 
called. 



Parameters : 

OldKeyEnable - the old value of the enable. 



procedure IOKeyClear; 

Abstract: IOKeyClear clears the keyboard type-ahead buffer 
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Module IO_Private; 

10 Private - 10 system private definitions and interrupt routines. 

MiTes A. Barel ca. 1 Jan 80. 

Copyright (C) 1980, Three Rivers Computer Corporation 

Abstract: 

IO_Private exports interrupt routines and definitions which are 
private to the modules which make up the 10 system. 

Design: Interrupt routines must *never* cause segment faults. 

Version Number V5-9 

{xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx} Exports {XXXXXXXXXXXXXXXXXXXXXXXXXX* 



Imports SystemDefs from SystemDefs; 

Imports I0_Unit from I0_Unit; 

Imports I0_0thers from I0_0thers; 

Imports Raster from Raster ; 



Const 

CirBufSize = #100-3; ( size of circular buffers - made so tha^ 

{ total size of Cirular Buff er = #100 } 

DskBlockSize r 512; { block sizes for fixed block size devices 

FlpBlockSize = 128; { Size is in BYTES } 

SpkBlockSize = 128.; 

TabBlockSize = 8; 

Z80BlockSize = 20; 

GPIBBlockSize = 1 ; 

Last12Sector = 202 * 4 * 30 -1 ; {Tracks * Heads * Sectors. star 

DskPriority - 0; { interrupt priorities } 

FlpPriority = 3; 

SpkPriority = 2; 
{$ifc Ether3MBaud then} 

Ether3Priority = 12; 
{$elsec} 
{$ifc Ether 1 OMBaud then} 

EtherlOPriority - 12; 
{$endc} 
{$endc} 

GPIBInPriority =11; 

GPIBOutPriority = 1; 

TabPriority = 10; 

KeyPriority = 5; 

RSIPriority = 6; 

RSCPriority = 7; 

Z80Friority = 8; 
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PutPriority = 9; 
GetPriority = 4; 



PSFloppy = #14; 
PSGPIB = 0; 
PSZ80Monitor = 
PSTablet = 6; 
PSKeyBoard = 7; 
PSRS232 = 5; 
PSClock = #12; 



#11 



{ Put Status Special Codes } 



GSFloppy = #40; 




GSGPIB = #100; 




GSZ80Monitor = #10; 




GSTablet = #2; 




GSKeyBoard = #4; 




GSRS232 = #1; 




GSClock = #20; 




DisCstO = #1154; 


{ c 


DisCstl = #1351 ; 




MinCurY = 0; 


{ 


MaxCurY = 1023; 


{ 


SegSize = 128; 




CrsHeight = 64; 


{ 


CrsConstO = #370; 


{ 


VisOnly = #2000; 


{ 


VisAndCur = #2400; 


{ 



{ Get Status Special Codes } 



Map = #100000; 



consts to terminate Display List; add in funct } 

Minimum Y value for cursor } 

Maximum Y value for cursor } 

# lines / display segment } 

Height of the cursor } 

constants to compute funny X position } 

mode bits - Visual screen only } 

visual screen and cursor } 

cursor map function } 



CtrlC = chr(#3); 
CtrlS = chr(#23) ; 
CtrlQ = chr(#21 ) ; 
BlamCh = Chr(#303); 
DumpCh r Chr(#304) ; 



{ untranslated shift-control-C } 
{ untranslated shift-control-D } 



life Ether3MBaud then} 




E3TIntEnable r #4; 


{ Ether3 constan 


E3TDone = #2000; 




E3TError = #4000; 




E3TGo = #10; 




E3RIntEnable = #1 ; 




E3RDone - #400; 




E3RPromiscuous r #20; 




E3RError = #1000; 




E3RGo = #2; 




E3XmtMask r E3TDone + 


E3TError + E3TGo; 


E3XmtSucc = E3TDone + 


E3TGo; 


. E3RecMask = E3RDone + 


E3RError + E3RGo; 


E3RecSucc = E3RDone + 


E3RGo; 



endc} 



PackBuffLen = 511 ; 
E3RecCount = PackBuffLen - 4; 
MAXE3RECERRS = 20; 
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Type 

lOPtrKludge = record case integer of 

1: (Buffer: IOBufPtr); 
2: (Offset: Integer; 

Segment: Integer) 
end ; 

{$ifc Ether3MBaud then} 

EtherBuff = array [0 . . PackBuf f Len] of integer; 

pEtherBuff = "EtherBuff; 
{$endc} 

CirBufPtr = ~ Circular Buffer ; 

CBType = (KDBType , RSIType , RSOType , StdType);{ types of circular 

CirBufltem = packed record { what we put in circular buffers 

ch: char; { the character } 

case CBType of { and device specific condition bits 



bufs 
} 



} 



end 



KDBType: (KDBUnused : 

KDBOverrun 

KDBError : 
RSIType: (RSIUnused: 

RSIBreak: 

RSIModem: 

RSIParErr : 

RSIOverrun 

RSIError: boolean); 
RSOType: (RSOUnused: 0..255); 
StdType: (StdHiByte: 0..255) 



0. .63; 
boolean 
boolean) ; 

0..7; 
boolean ; 
boolean ; 

boolean ; 
: boolean 



{ true = overrun } 

{ OR of all error bits 

{ true=break received ] 

{ true=modem change } 

{ true=parity error } 

{ true=overrun error } 

{ OR of all error bit- 



Circular Buffer = packed record 



Length 
RdPtr: 
WrPtr : 
Buffer 



integer ; 
integer ; 
integer ; 



{ 



circular buffer used for character } 
devices, SpGetCir and SpPutCir } 
# chars in the buffer } 
where to get chrs out } 
where to put them in } 



packed array[0. . CirBuf Size-1 ] of CirBufltem 

{ last, the buffer } 



end 



TabBufPtr = "TabletBuf fer ; 
TabletBuffer = packed record 

TabX: 0.. #77777; 

TabSwitch: boolean; 

TabY: 0.. #77777; 

Fill: 0..1; 

ClkTime: double; 

Z80Mon: Z80Readings 
end ; 



buffer used 
Z80 Monitor 



for tablet, clock and } 
Info } 



DispPtr = "DisplayFile ; 
DisplayFile = array[0..11] of 

packed record case boolean of 
true: (int: integer); 
false : (LineCount : 0..127; 
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>nst 



StartOver: boolean; 
ShowCursor: boolean; 
YerticalRetrace : boolean; 
ShowScreen: boolean; 
DisableMicroInterru.pt : boolean ; 
WriteBadParity : boolean; 
Map: (CursOnly, CCursOnly, Compl 



Compllnv , 



end ; 



Normal, Invert, CursComp, Inv Curs Compl ) ) 



ScrCtlPtr = ~ ScrCtlBlock; 
ScrCtlBlock = packed record 

Cmd : DispPtr; 

ScreenBase: Integer; 

CursorBase: Integer; 

Unusedl: Integer; 

Unused2: Integer; 

CursX: integer; 

filler: integer 
end ; 



DskSPC r 30; 
DskHds = 8; 
DskExHds = 0; 
DskCyls = 202; 
FlpUnits = 4; 
FlpSPC = 26; 
FlpHds = 2; 
FlpCyls = 77; 

TabAverage = 4 
Tablgnore = 2; 



{ Sectors Per Cynlinder } 
Max number of dsk heads } 
Extra heads not in use } 
Number of cylinders } 
is the only valid unit } 
numbered 1 to 26 } 
numbered to 1 } 
numbered to 77, should not be used } 



TabFifoLen 
TabFifoMax 
GPIBx Fudge 
GPIByFudge 



TabAverage 
TabFifoLen 

38; 
1061: 



STopY = 0; 
SLeftX = 0; 
SRightX = 767; 



number of 
this MUST 
number of 
picked up 



tablet 
be 4 } 
points 
or put 



points to average } 

to ignore when finger is } 
down } 



Tablgnore ; 

1; 

actual range in X and Y 

of TX and TY: 0. .1100 } 

of TabAbsX: 0. .1100 } 

of TabAbsY: 0..1100 } 

of TabRelX: -38'. .1062 limited 

of TabRelY: 1061. .-39 limited 



for BitPad : 0. .2200 } 



to 
to 



0..767 ) 
1023- .0 



fpe 



DskCmds = (Dskldle, DskRdCheck, DskDiagRead, DskWrCheck, 
DskWrFirst, DskFormat, DskSeek, DskClear) ; 



/e Ether3MBaud then} 

Ether3Cmds = (E3Rset, E3Status , E3Receive, 

E3Promisc Receive ? E3Transmit) ; 
£endc} 
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FlpCmds = (FlpUnUsed, FlpRead, FlpWrite, FlpFormat, FlpSeek, FlpRese^ 
GPIBCmds = (GPIBNop, GPIBWrite, GPIBWrEOI, GPIBCntl); 



{ Types of block devices } 
IOCBType = (DskType, FlpType, SpkType , GPIBType , 
{$ifc Ether3MBaud then} 



{$endc} 



Gen Type) ; 



Ether3Type, 



IOCBPtr = ~I0CB; 

IOCB = packed record { IOCBs must be 8 word 
Buffer: IOBuf Ptr ; { data buffer for 
case IOCBType of 
DskType: 

( DskCommand : 0. .255; 
DskNumSect: 0..255; 
(* MEW FS [*) 

DskAddr: Integer; 
(* HEW FS *) 
(* OLD FS [) 
DskSector: O..DskSPC-1; 
DskHead : 0. . DskHds + DskExHds-1 ; 
DskCylinder: 0. . DskCyls-1 ; 
(* OLD FS *) 
DskSer ialNum : double; 
DskLogBlk: integer; 
DskFill 1 : integer ; 
DskNextAdr: double; 
DskPrevAdr: double; 
DskCntlError : ( OK, 

Add rs Err , 
PHCRC, 
LHSer , 
LHLB, 
LHCRC, 
DaCRC, 
Busy) ; 
DskFill2: boolean; 
DskTrackZero : boolean; 
DskWriteFault : boolean; 
DskSeekComplete : boolean; 
DskDr iveRead : boolean; 
DskNextlOCB: IOCBPtr) ; 
FlpType : 

( FlpUnit : 0. .FlpUnits-1 ; 
FlpHead: 0..FlpHds-1; 
FlpFilll: 0..31; 
FlpCylinder: 0..255 
FlpSector: C.,255 { 
FlpCommand: 0..255 { 
FlpByteCnt: integer 
FlpFill2: array [4. . 



aligned } 
transaction 



address error } 
Physical Header CRC } 
Logical Serial Wrong 
Logical Block Wrong } 
Logical Header CRC } 
Data CRC } 



{ 0. .FlpCyls-1 
1. .FlpSPC } ; 
FlpCmds } ; 
{ 0, .2^6 } ; 
11] of integer; 



}; 
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FlpResuit: integer; { Not yet defined } 

FlpNextlOCB: IOCBPtr); 

Qnl/Tuno • 

( SpkFillO: 0..255; 

■j^/ r* 11 wJui i^^i o < w • • t ' -J i 

SpkFilll: array[3..11] of integer; 

SpkFill2: 0. .16383; 

SpkAddrErr: boolean; 

SpkError: boolean; 

SpkNextlOCB: IOCBPtr); 
GPIBType: 

(GPIBCommand : GPIBCmds; 

GPIBFO: 0..63; 

GPIBNumBufs: 0..255; 

GPIBByteCount : 0..255; 

GPIBF1: array [4. .11] of integer; 

GPIBResult: integer; {Not Implemented} 

GPIBNextlOCB: IOCBPtr); 
iifc Ether3MBaud then} 

Ether3Type: 

( Ether3Cmd: integer; 

Ether3Delay: integer; 

Ether3WdCnt: integer; 

Ether3Status : integer; 

Ether3NextI0CB: IOCBPtr 



;endc} 



end { IOCB } 



) 



GenType: { General Purpose entry } 
( GenCmd: 0..255; 
NumBlks: 0..255; 

GenFillO: array[3--11] of integer 
Result: integer; 
NextlOCB: IOCBPtr) 



KRBuf , 
KTBuf , 
RSIBuf-, 

RSOBuf: CirBufPtr 
TabBuf: TabBufPtr 
ScrBuf: ScrCtlPtr, 
DisFileO, DisFilel : DispPtr; 
OldCurY, 

OldCurX: integer; 
Cursor: CurPatPtr; 
CursorX, CursorY: integer; 
PointX, PointY: integer; 
TabFifo: array[0. . TabFifoMax] of 
record X,Y: integer end 
TabFifo Inx: integer; 
TabCount: integer; 
SumX, SumY: integer; 
FlpLastCylinder : integer; 
FlpLastHead: integer; 
GPIBTablet-State : integer* { 
GPIBxTablet, GPIByTablet : integer 



Keyboard Raw Buffer } 

Keyboard translated buffer } 

RS-232 In Buffer } 

RS-232 Out Buffer } 

Tablet/Clock Buffer } 

Screen control blocks } 

Screen Display lists - double bufrs } 

previous Cursor Y position } 

previous Cursor X position MOD 8 } 

Cursor Pattern } 

new cursor coordinates } 

the point of the cursor } 

; { fifo of tablet points } 

index into tablet fifo } 

counter for ignoring tablet points } 

sum of 4 points for averaging } 

last cylinder referenced } 

last head referenced } 

GPIB tablet current state } 
; { GPIB tablet coordinates } 
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GPIBInBuf: CirBufPtr; 
StanleyTablet : boolean; 
CurDskHds: integer; 
CursF: integer; 
BotCursF: integer; 
Bot Complemented : boolean; 
SBottomY: integer; 
Tab Mode: TabletMode; 
CCursMode: CursMode; 
newFunct : Boolean; 

CB : IOCBPtr; 



{ GPIB input 


{ if Stanley 


{ number of h 


{ function cu 


{ function fo 


{ whether bot 


{ bottom of d 


{ Current mod 


{ Current mod 


{ Tells when 


insure that 


{ Pointer to 
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} 



buffer 

tablet is enabled } 

eads on this disk. 4 or 

rrently in use} 

r area below used area} 

is complemented or not} 
isplayed area } 
e of the tablet } 
e of cursor } 
have a new function to 

cursor redisplayed } 
IOCB used by UnitIO } 



Type 



Var 



IntTabPtr = ~IntVecTable ; 

IntVecTable r array [ 0. .MaxUnit-FakeUnits] of 

record { NO Fake Units Included Here! ] 

SSN: integer; 
GPtr : integer ; 
Rtn: 0..255; 
SLink: integer 
end ; 



IntTab: IntTabPtr; 
IOPr ivIUnused : boolean; 
IOPr iv2Unused : boolean; 
KeyEnable: boolean; 



{ pointer to interrupt vector table J 

{ ***** unused ***** } 

{ ***** unused ***** } 

{ if keyboard interrupts are enabled } 



{$ifc EtherBMBaud then} 
Var ether CE: IOCBPtr; 
pEBuff: IOBufPtr; 

E3Restart , 
E3IsPromiscuous , 
E3InProgress , 
E3IsReceiving : boolean; 
E3RecErrs: integer; 
{$endc} 



{ Pointer to IOCB used by Ethernet } 
{ Pointer to Ethernet 10 buffer } 

{ Ether3 state } 



{ interrupt routines: } 

Procedure Disklntr; { hard disk } 

Procedure Floppylntr; { floppy disk } 

Procedure Speechlntr; { speech out } 

Procedure GPIBOutlntr; { GPIB out } 

Procedure GPIBInlntr; { GPIB in } 
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Procedure Tablntr; { tablet (actually video retrace } 

procedure ZBOIntr; { Z80 monitor } 

Procedure Keylntr ; { keyboard } 

Procedure RSIIntr; { RS232 in } 

Procedure RSOIntr ; { RS232 out } 

Procedure Putlntr; { PutStatus completion } 

Procedure Getlntr ; { GetStatus completion } 

{$ifc Ether3MBaud then} 

Procedure Ether3Intr; { 3 MBaud EtherNet completion } 

Function E3Reset: integer; 

Procedure E3RecStart; 

{$endc} 
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Abstract: Disklntr handles a hard disk interrupt by clearing 
IOInProgress . 



Procedure Floppylntr; 



Abstract: Floppylntr handles a floppy interrupt by clearing 
IOInProgress . 



Procedure Speechlntr ; 



Abstract: Speechlntr handles a speech interrupt by clearinj 
IOInProgress . 



Procedure GPIBOutlntr; 



Abstract: GPIBOutlntr handles a GPIB output interrupt by clearinj 
IOInProgress . 



Procedure GPIBInlntr; 



Abstract: GPIBInlntr handles a GPIB input interrupt. The 
assumption is that the only GPIB input device is a BitPad. 
When a GPIB input interrupt is recognized for the first 
time, the Stanley tablet is turned off. GPIBInlntr gathers 
characters from the BitPad and updates the tablet buffer. 



Procedure Tablntr; 



Abstract: Tablntr (misnamed) handles the video retrace interrupt. 
It smoothes the tablet data and updates the displayed cursor 
position (if it is visible and has moved). 
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Procedure Z80Intr; 

Abstract: ZSOIntr ignores Z80 temperature/voltage monitoring. 



Procedure Keylntr; 

Abstract: Keylntr processes KeyBoard interrupts by copying 
characters from the KeyBoard buffer into the (misnamed) 
translated keyboard buffer (KTBuf). Control-C, 
Control-Shift-C, Control-Shift-D, Control-S, HELP and 
Control-Q are processed also. 



function E3Heset: integer; 

Abstract: E3Reset resets the 3 MBaud Ether Net (?) 

procedure E3RecStart; 



Abstract: E3RecStart starts a receive from the 3 MBaud Ether Net 
(?). 



Procedure Ether3Intr; 

Abstract: E3Reset processes a 3 MBaud EtherNet interrupt (?) 

Procedure RSIIntr; 

Abstract: RSIIntr ignores an RS232 input interrupt. 
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Procedure RSOIntr ; 



Abstract: RSIIntr ignores an RS232 output interrupt. 



Procedure Putlntr; 



Abstract: Putlntr handles a PutStatus interrupt by clear in; 
IOInProgress . 



Procedure Getlntr; 



Abstract: Getlntr handles a GetStatus interrupt by clearing 
IOInProgress . 
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) Unit - Unit 10 routines. 

les A. Barel ca. 1 Jan 80. 

>pyright (C) 1980, Three Rivers Computer Corporation 



istract : 

I0_Unit exports procedures to perform 10 on the various 10 Units 
(devices) . 

Design: 1) UnitIO must increment and decrement the IOCount of the 
segments which are involved in 10. 2) Segment faults must 
*never* happen while interrupts are off. 

irsion Number V6.2 

*«*********»*»***********«««**} Exports {a****************************} 



tports SystemDefs from SystemDefs; 



mst 



{ Device Code Assignments } 





MaxUnit = 


18; 




FakeUnits 


= 2; 




IOStart = 


0; 




HardDisk = 


■ 1; 


life 


Ether3MBaud 


then} 




Ether3 = 2; 


;elsec} 




;ifc 


Ether lOMBauc 


I then} 




Ether 10 = 


2; 


iendc} 




;endc 


i} 





{ highest legal device code } 

{ Number of units which don't have StartlO's } 

{ Master Z-80 control } 



Floppy = 3; 

Speech = 4; 

GPIBIn =11; 

GPIBOut = 5; 

Z80Monitor = 6; 

Tablet = 7; 

KeyBoard = 8; 

RS232In = 9; 

RS2320ut = 10; 

SpPutSts = 12; 

SpGetSts =13; 

SpPutCir = 14; 

SpGetCir = 15; 

{ Fake Units Begin Here } 

TransKey =16; { Translated Keyboard } 

ScreenOut = 17; { Screen Display } 

Clock =18; { Used only for Put/Get Status } 

LastUnit - Clock* { for unit validity checking } 



{ Put/Get Status } 

{ Put/Get from Circular Buffer } 
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Type 



Const 



IOBufPtr = "IOBuffer; • 

IOBuffer = array[0..0] of integer; 

CBufPtr = A CBufr; 

CBufr = packed array[0..0] of char; 

BigStr = String[255]; 
UnitRng = O..MaxUnit; 

IOStatPtr = "IOStatus; 
IOStatus = record 

HardStatus: integer; 

SoftStatus: integer; 

BytesTransfered : integer 
end ; 

IOHeadPtr = "IOHeader; 
IOHeader = record 

SerialNum: Double; 

LogBlock: integer; 

Filler: integer; 

NextAdr: Double; 

PrevAdr: Double 
end ; 

DevTabPtr = ~DeviceTable ; 
DeviceTable = array [UnitRng] of packed 
CtlPtr: IOBufPtr; 

BlockSize: integer; 



{ same as Memory, except for } 
{ character buffers } 
{ A big String } 



{ hardware status return } 
{ device independent status } 



end ; 



IntrMask: integer; 

Intr Priority : integer; 

PSCode: 0..255; 

GSCode: 0. .255; 

Name: packed array[C..3l of* char 



{ Hard disk header record } 

{ Serial number of the file } 

{ The logical block number } 

{ Address of next block in the 

{ Address of previous block } 



record 

actually pointer to ChrCntlBl 
but we'll coerce later } 

= variable size } 

1 = character device (uses ci 
>1 = fixed blocksize (= block 
interrupt mask bits } 
decoded iterrupt priority (0. 
Special code for PutStatus } 
Special code for GetStatus } 



RS9600 
RS4800 
RS2400 
RS1200 
RS600 = 
RS300 = 
RS150 = 
RSI 10 = 



{ RS-232 
= 1 

r 2 

= 4 

= 8 

16 



Speeds } 



32 
64 
87 



T 



ype 



ZSOReadings r packed record 
Ground : integer ; 
Volts5: integer; 
Volts12: integer; 



{ 280 Voltage/ Temp Monitor Reading^ 



118 - 



DS D.6 Interface Module IO_Unit 

5 Feb 82 

Minus 12: integer ; 
VRef: integer; 
Net: integer; 
CRTemp: integer; 
BaseTemp: integer; 
Volts55: integer; 
Volts24: integer 
end ; ' 

Z80Settings = packed record { Z80 Voitage/Temp Monitor Settings } 
MinGround : integer; 
MaxGround : integer; 
Min5: integer; 
Max5: integer; 
Min12: integer; 
Max12: integer; 
MinMinus12: integer; 
MaxMinus12: integer; 
MinVRef: integer; 
MaxVRef: integer; 
MinNet: integer; 
MaxNet : integer ; 
MinCRTemp: integer; 
Max CRTemp: integer; 
MinBaseTemp: integer; 
MaxBaseTemp: integer; 
Min55: integer; 
Max55: integer; 
Min24: integer; 
Max24: integer 
end : 



DevStatusBlock = packed record 

ByteCnt: integer; { # of status bytes } 
case UnitRng of 
KeyBoard , 
Tablet, 
frifc Ether3MBaud then} 

Ether3, 
^endc} 

Clock: (DevEnable: boolean); 

RS232In, 

RS2320ut: ( RSRcvEnable : boolean; 
RSFill: 0..127; 
RSSpeed : 0..255; 
RSParity: (NoParity, OddParity, IllegParity 

EvenParity) ; 
RSStopBits: (Syncr ,Stop1 , Stop 1x5 , Stop2) ; 
^ RSXmitBits: ( Send5, Send7, Send6, Send8) ; 

RSRcvBits: ( Rcv5 , Rcv7 , Rcv6 , Rcv8) ) ; 
Z80Monitor: (Z80Enable: boolean; 
Z80Fill: 0,, 32767; 
case boolean of { Get or Put; -true = Get ' 
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Floppy: 



false 



(case integer 
1 



true: ( { Get Status } 
GetRead: ZSOReadings; 
GetLimits: ZSOSettings 

); 

( { Put Status } 
PutLimits: Z80Settings 

)); 

of { Get or Put } 
( { Get Status } 

FlpUnit: 0..3; 

FlpHead: 0..1; 

FlpNotReady: boolean; 

FlpEquipChk: boolean; 

FlpSeekEnd: boolean; 

FlpIntrCode: 0..3; 
case integer of 

1 {IORead, IOWrite, IOFormat} : 

( FlpMissAddr : boolean; { in data or header ] 
FlpNotWr itable : boolean; 
FlpNoData: boolean; 
FlpFilll: 0..1; 
FlpOverrun: boolean; 
FlpDataError : boolean; { 
FlpFill2: 0..1; 
FlpEndCylinder : boolean; 
FlpDataMissAddr : boolean; 
FlpBadCylinder : boolean; 

FlpFill3: 0..3; 
FlpWrongCylinder : boolean 
Flp Data Data Err or 
FlpFill4: 0.-3; 
FlpCylinderByte : 
FlpHeadByte: 
FlpSectorByte : 
FlpSizeSector Byte : 

); 

2 {IOSeek} : 
( Flp Pre sent Cylinder 
) 

); 

2: ( { Put Status } 

FlpDensity : 0. .255; { single 



in data or header 



{ in data } 



boolean; { in data } 



.255; 
.255; 
.255; 
.255 



0..255 



Flp He ads : 

FlpEnable 

); 



0..255; 
boolean 



{ 



double 
1 or 2 



= 0, 

= #100 } 
head's } 



3: ( 



) 



FlpBytel 
FlpByte2 

FlpByte3 
FlpBytel 

FlpByte5 
FlpByte6 
FlpByte7 



{ 



Byte 
.255 
.255 
.255 
.255 
.255 
.255 
.255 



access } 
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end ; 



r'pe 



lOCommands = (IOReset, IORead , IOWrite, lOSeek, IOFormat , 

IODiagRead, IOWriteFirst , IOIdle, IOWriteEOI, IOConf igure) ; 



3F 



DevTab: DevTabPtr; 
CtrlSPending : boolean; 
IOInProgress : boolean; 
1024MByte: boolean; 



{ pointer to system device table } 

{ if ~S has halted screen output } 

{ false when speech is active } 

{ true if the disk is 24 MBytes } 



mction IOCRead(Unit : UnitRng; var Ch : char): integer; 

{ read a character from a } 
{ character device and return } 
{ status: IOB no char available } 
{ IOC character returned } 

.motion IOCWrite(Unit : UnitRng; Ch : char): integer; 

{ write Ch to character device } 



l <aHu i eiui u Suciuuo. 



IOB buffer full 
IOC character sent 



ocedure UnitIO(Unit: UnitRng; { 10 to block structured } 

Bufr: lOBufPtr; { devices } 

Command: lOCommands; 
ByteCnt: integer; 
LogAdr: double; 
HdPtr: IOHeadPtr; 
StsPtr: IOStatPtr) ; 

-ocedure IOWait(var Stats: IOStatus); { hang until I/O completes } 

.motion IOBusy(var Stats: IOStatus): boolean; { true if I/O not complete } 
-ocedure IOPutStatus(Unit : UnitRng; var StatBlk: DevStatusBlock) ; 

{ Set status on device Unit } 
•ocedure IOGetStatus(Unit : UnitRng; var StatBlk: DevStatusBlock); 

{ Reads status on device Unit } 
-ocedure IOBeep; { You guessed it, BEEP! } 

iifc Ether3MBaud then} 

mction Ether3Transmit( Buf f : IOBuf Ptr ; WdCnt: integer) : integer; 

motion Ether3Receive( Buff : IOBuf Ptr; var WdCnt: integer; timeout: integer) 

: integer ; 

"°tion Ether3Start( Promiscuous , Restart: boolean) : integer; 
dc} 
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Function IOCRead (Unit : UnitRng; var Ch : char): integer; 

Abstract: 

Reads a character from a character device and returns a 
completion or error code. 

Parameters : 

Unit - device from which to read the character. 
Ch - character to read. 

Returns: 

A condition code as defined in the module IOErrors. 

Function I0CWrite( Unit: UnitRng; Ch : char ) :integer ; 

Abstract: 

Writes a character to a character device and returns a 
completion or error code. Delays if the buffer is full. 
Returns an error if the condition doesn't clear up. 

Parameters: 

Unit - device onto which the character will be written. 
Ch - character to write. 

Returns : 

Condition code as defined by the module IOErrors. 

Procedure I0Wait( var Stats: IOStatus ); 

Abstract: 

Hangs until an 10 operation inititated by UnitIO is 
complete. 
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Parameters: 

Stats - Status block that was given to UnitIO when the 
operation was initiated. 



Function IOBusyC var Stats: IOStatus) : boolean; 

Abstract: 

Determines whether or not I/O is complete. 

Parameters : 

Stats - Status block that was given to UnitIO when the 
operation was initiated. 

Returns : 

True if 10 is not complete, false if it is. 

Procedure I0PutStatus( Unit: UnitRng; var StatBlk : DevStatusBlock ); 

Abstract : 

Sets device's characteristics. Has no effect if the device 
has no settable status. 

Parameters: 

Unit - device whose characteristics are to be set. 
StatBlk - block containing characteristics to be set. 

Procedure IOGetStatus( Unit: UnitRng; var StatBlk :DevStatusBlock ); 

Abstract : 

Reads device status. Has no effect if the device has no 
readable status. 
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Parameters: 

Unit - device whose characteristics are to be read. 

StatBlk - block to which device status is to be returned. 

Procedure UnitI0( Unit: UnitRng; Bufr : IOBufPtr; Command: IOCommands; 
ByteCnt: integer; LogAdr: double; HdPtr: IOHeadPtr; StsPtr: 
IOStatPtr ); 

Abstract: 

10 to non-character devices. 

Parameters: 

Unit - the device. 

Bufr - buffer for data transfers, if requested. 

Command - operation to be performed on the device. 

ByteCnt - number of bytes to be transferred. 

LogAdr - logical address for block structured devices. 

HdPtr - pointer to the logical header for operations with 
the hard disk. 

StsPtr - resultant status from the operation. 

function Ether3Start( promiscuous, restart: boolean): integer; 

Abstract: Restart the 3 MBaud EtherNet (?). 

Parameters: if promiscuous is TRUE, Ether3Receive takes packets 
for any address, if restart is TRUE, the receiver will be 
kept active at all times. 

Returns: Ether address of this machine. 
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function Ether3Receive( Buff: lOBuf Ptr ; var WdCnt: integer; timeout: 
integer) : integer ; 

Abstract: Receive data from the 3 MBaud EtherNet (?) . 

Returns: I0EI0C if successful, WdCnt := size of received packet 
in words IOEBSE if WdCnt > 512 IOEPTL if a packet > WdCnt is 
received IOETIM if timeout expires (receiver is still 
active) 
< -16000 hardware status, if receive fails 20 times 



Function Ether3Transmit( Buff: IOBuf Ptr ; WdCnt: integer): integer; 
Abstract: Transmit data to the 3 MBaud EtherNet (?). 



Returns: IOEIOC if successful IOEBSE if WdCnt > 512 

< -16000 hard status, if transmit fails 10 times 



procedure IOBeep; 

Abstract : 

Causes the PERQ to beep 
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module Lights; 



module Lights 



Lights - Perq Lights. 

J. P. Strait 26 May 81 . 

Copyright (C) Three Rivers 



Computer Corporation, 1981 



Abstract : 

This module defines the screen coordinates and size of the Perq 
"lights". These are portions of the screen that are inverted 
during tedious operations such as recalibrating the disk and 
scavenging files (in FileAccess) . 

Design: The lights must *not* extend below the 128th line of the 
screen. The Y + Size must be less than or equal to 256. It is a 
good idea for the lights to be totally inside of the title line. 
The current lights start at the left leave lots of room for new 
lights to the right of the current one. There is room for 10 
lights all together 

Version Number V1.2 
exports 

const 



LightUsed 

LightY 
LightHeight 
LightWidth 
LightSpacing 

Light Recalibrate 
LightScavenge 
Light Swap 
LightCompiler 



= TRUE; {whether should, use the lights at all} 

= 3; 

= 18; 

= 3*LightWidth; 

= LightSpacing; 

= Light Recalibrate + LightWidth -r LightSpacing; 

= LightScavenge + LightWidth + LightSpacing; 

= LightSwap + LightWidth + LightSpacing; 
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module Loader; 

Loader - Perq system loader. 

J. P. Strait 10 Feb 81. rewritten as a module. 

Copyright (C) Three Rivers Computer Corporation , 1981 . 

Abstract: 

This module implements the Perq POS system loader. Given a 
run-file name as input, it loads and executes that program. When 
the program terminates (normally or abnormally) it returns to the 
loader which returns to its caller. 

Version Number V2.7 
exports 

const Loader Version = '2.7 1 ; 

procedure Load( RunFileName: String ); 
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procedure Load (RunFileName: String ); 



Abstract: Given a run-file name as input, this procedure loads 

and executes that program. When the program terminates 

(normally or abnormally) it returns to the loader which 
returns to its caller. 



Parameters: 

RunFileName - Name of the .RUN file to load. ".RUN" is 
appended if it is not already present. 
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module Memory; 

Memory - Perq memory manager. 

J. P. Strait 1 Jan 80. 

Copyright (C) Three Rivers Computer Corporation, 1980. 

Abstract : 

Memory is the Perq memory manager. It supervises the segment 
tables and exports procedures for manipulating memory segments. 
Perq physical memory is segmented into separately addressable 
items (called segments) which may contain either code or data. 

Design: See the Q-Code reference manual. 

Version Number V2.13 
exports 

const MemoryVersion = ! 2.13 ! ; 

imports SystemDefs from SystemDefs; 
imports Code from Code; 

const SATSeg = 1; { SAT segment } 

SITSeg = 2; { SIT segement } 

FontSeg = 3; { font segment } 

ScreenSeg = 4; ' { screen segment } 

CursorSeg =5; { cursor segment } 

lOSeg =6; {10 segment } 

SysNameSeg =7; { system segment names } 

BootedMemorylnBlocks = #1000; { memory in blocks at boot time } 
MaxSegment = #137; { should be 2**16 - 1 } 

SetStkBase = #60; 
SetStkLimit = #120; 

{$ifc Ether3MBaud then} 

IGSegSize = 6; { number of blocks in the IOSeg } 

{$elsec} 
{$ifc Ether 10MBaud then} 

IOSegSize = 3; { number of blocks in the IOSeg } 

{$elsec} 

IOSegSize = 3; { number of blocks in the IOSeg } 

{$endc} 
{$endc} 

SysSegLength =8; { length of name of a boot-loaded segment } 

MMMaxBlocks r #400; { maximum number of blocks in a segment 
MMMaxCount = #377; 
MMMaxIntSize = MMMaxBlocks-1 ; 
MMMaxExtSize = MMMaxBlocks; 
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module Memory 



type MMBit4 = 0. .#17; 
MMBit8 = 0..#377; 
MMBit12 = 0..#7777; 
MMIntSize = 0. .MMMaxIntSize ; 
MMExtSize = 1 . .MMMaxExtSize ; 
MMAddress = integer; 
MMPosition = (MMLowPos, MMHighPos) ; 

SegmentNumber = integer; 

SegmentKind = (CodeSegment , DataSegment) ; 

SegmentMobility = (UnMovable, UnSwappable, LessSwappable, Swappable); 

MMFreeNode = record 
N: MMAddress; 
L: integer 
end ; 

MMBlockArray = array[0..0] of array[Q. . 127] of integer; 

pMMBlockArray = "MMBlockArray; 

MMArray = record case Integer of 

1: (m: array[0..0] of MMFreeNode); 

2: (w: array[0..0] of Integer) 
end ; 

pMMArray = "MMArray; 

MMPoi-nter = record case integer of 

1 

2 

3 

4 



(P: "integer) ; 
(B: pMMBlockArray); 
(M: pMMArray) ; 
(Offset: MMAddress; 
Segmen: SegmentNumber) 
end ; 



SATentry = packed record { Segment Address Table } 
{ **** ENTRIES MUST BE TWO WORDS LONG **** } 



NotResident 

Moving 

RecentlyUsed 

Sharable 

Kind 

Full 

InUse 

Lost 

BaseLower 

BaseUpper 

Size 

end ; 



boolean 

boolean 

boolean 

boolean 

SegmentKind ; 

boolean ; 

boolean ; 

boolean; { 

MMBit8; 

MMBit4; 

MMBit12 



*s* 



{ 001 } 

{ 002 } 

{ 004 } 

{ 010. } 

{ 020 } 

{ 040 } 

{ 100 } 

{ 200 } 
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SITentry = packed 




{ **** ENTRIES M 




1 : { real SIT en 




(NextSeg : 




RefCount : 




IOCount : 




Mobility : 




BootLoaded : 




Swaplnfo : 



module Memory 



{ Segment 



record case integer of 
UST BE EIGHT WORDS LONG 
try } 
SegmentNumber ; 
0. .MMMaxCount ; 
0. .MMMaxCount ; 
SegmentMobility ; 
Boolean ; 

record case {BootLoaded:} Boolean of 
True: ( BootLower Address : Integer; 
BootUpper Address : Integer; 
BootLogBlock : Integer); 
(DiskLower Address : Integer; 
Disk Upper Address 
Diskld : Integer) 



Information Table 



False 



Integer ; 



end ; 

Kind of 

t: (Increment 
Maximum 
Freelist 
CodeSegment: (Update 



case Segment 
DataSegmen 



boot time 
BootBlock : 



information 
record 



} 



CS: SegmentNumber; 

SS: SegmentNumber; 

XX: Integer; 

VN: Integer; 

FF : SegmentNumber; 

FC: SegmentNumber; 

DK: integer; 

CH: integer 

end ) 



MMIntSize; 
MM In t Size; 
MMAddress) 
TimeStamp) 



initial code segment } 
initial stack segment } 
unused } 

system version number } 
first free segment number } 
first system code segment } 
disk system was booted from 
char used in booting } 



end ; 



SATarray = array[0..0] of SATentry; 

SITarray = array[0..0] of SITentry; 

pSAT = "SATarray; 

pSIT = "SITarray; 

MMEdge = record 

H: SegmentNumber; { Head } 
T: SegmentNumber { Tail } 
end ; 

SysSegName = packed array[ 1 . , SysSegLength] of Char; 

pSysNames = "SysNameArray ; 

SysNameArray = array[o.,0] of SysSegName; 

procedure InitKernory ; 
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procedure DataSegC var S: SegmentNumber ); 
procedure CodeOr DataSegC var S: SegmentNumber ); 
procedure ChangeSize( S: SegmentNumber; Fsize: MMExtSize ); 
procedure CreateSegmentC var S: SegmentNumber; 

Fsize, Fincrement, Fmaximum: MMExtSize ) 
procedure IncRefCountC S: SegmentNumber ); 

procedure SetMobilityC S: SegmentNumber; M: SegmentMobility ); 
procedure DecRefCountC S: SegmentNumber ); 
procedure SetlncrementC S: SegmentNumber; V: MMExtSize ); 
procedure SetMaximumC S: SegmentNumber; V: MMExtSize ); 
procedure SetSharableC S: SegmentNumber; V: boolean ); 
procedure SetKind( S: SegmentNumber; V: SegmentKind ); 
procedure MarkMemory; 
procedure CleanUpMemory ; 

procedure FindCodeSegment( var S: SegmentNumber; Hint: SegHint ); 
procedure EnableSwappingC Where: Integer ); 
procedure DisableSwapping ; 
function CurrentSegment : SegmentNumber; 

exception UnusedSegmentC S: SegmentNumber ); 



Abstract 



UnusedSegment is raised when the memory manager 
encounters a segment number which references a segment 
which is not in use. This may- mean that a bad segment 
number was passed to some memory manager routine or 
that a bad address was de-referenced. 



Parameters : 

S - Segment number of the unused segment. 



exception NotDataSegmentC S: SegmentNumber ); 



Abstract : 

NotDataSegment is raised when the number of a code 
segment is passed to. some memory manager routine that 
requires the number of a data segment. 



Parameters: 

S - Segment number of the code segment. 



exception BadSizeC S: SegmentNumber; Fsize: Integer ); 
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Abstract 



BadSize is raised when a bad Size value is passed to 
some memory manager routine. This usually means that 
the size passed to Cr eateSegment or ChangeSize is 
greater than the maximum size or less than one. 



Parameters : 

Fsize - The bad Size value. 



exception Badlncrement( S: SegmentNumber ; Fincrement: Integer ); 



Abstract : 

Badlncrement is raised when a bad Increment value is 
passed to some memory manager routine. This usually 
means that the increment passed to CreateSegment is 
greater than 256 or less than one . 



Parameters : 

Fincrement - The bad Increment value. 



exception BadMaximumC S: SegmentNumber; Fmaximum: Integer ); 



Abstract: 

BadMaximum is raised when a bad Maximum value is passed 
to some memory manager routine. This usually means 
that the maximum passed to CreateSegment is greater 
than 256 or less than one. 



Parameters: 

Fmaximum - The bad Maximum value. 



exception FullMemory; 

Abstract : 

FullMemory is raised when there is not enough physical 
memory to satisfy some memory manager request. This is 
raised only after swapping segments out and compacting 
memory. 

exception CantMoveSegment( S: SegmentNumber ); 
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Abstract : 

CantMoveSegment is raised when the memory manager 
attempts to move a segment which is UnMovable or has a 
non-zero 10 count. 



Parameters : 

S - The number of the segment which cannot be moved, 



exception PartNotMounted; 

Abstract : 

PartNotMounted is raised when 1) the memory manager 
attempts to swap a data segment out for the first time 
and 2) the partition which is to be used for 
swapping is no longer mounted. 

exception SwapInFailure( S: SegmentNumber ); 

Abstract: 

SwapInFailure is raised when the swap file cannot be 
found for a segment which is marked as swapped out. 
This is an error which should never happen in a 
debugged system. It usually means that there is a bug 
in the memory manager or that the segment tables have 
been clobbered. 

Parameters : 

S - The number of the segment which could not be 
swapped in. 

exception EdgeFailure; 

Abstract: 

EdgeFailure is raised by MakeEdge when it discovers 
that the SIT entries are not linked together into a 
circular list. This is an. error which should never 
happen in a debugged system. It usually means that 
there is a bug in the memory manager or that the 
segment tables have been clobbered . 

exception NilPointer; 
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module Memory 



Abstract : 



NilPointer Is raised when a Nil pointer is used or 
passed to Dispose. 



exception BadPointer; 



Abstract : 



BadPointer is raised when a bad pointer is passed to 
Dispose . 



Parameters : 



exception FullSegment; 



Abstract : 



FullSegment is raised by New when it discovers that 
there is not enough room to allocate and the segment 
cannot be enlarged (its size has reached its maximum). 



exception NoFreeSegments ; 



Abstract : 



NoFreeSegments is raised when the memory manager 
discovers that all of the segment numbers are in use 
and it needs another one. This is equivalent to 
"Segment table full". 



exception SwapError; 



Abstract 



SwapError is raised if the one of the memory managers 
swapping routines is called when swapping is disabled. 
This is an error which should never happen in a 
debugged system. It usually means that there is a bug 
in the memory manager. 



var SAT: pSAT; 
SIT: pSIT; 
MKFirst, MMFree , MMLast , HMIIeap: SegmentNumber ; 



- 136 - 



MMScanS, 
MMScanS, 



POS D.6 Interface 
05 Feb 82 

MMHole: MMEdge; 

MMState: (MMScanl, MMScan2, 

MMScan6, MMScan7, 

MMScanl 1, 

MMNot Found , MMFound ) ; 
StackSegment : SegmentNumber ; 
FirstSystemSeg : SegmentNumber; 
BootFileld: Integer; 
SwappingAllowed : Boolean; 
Swapld: Integer; 
MemorylnBlocks : Integer; { amount 



module Memory 



MMScanl, 
MM Scan 9, 



MMScan5, 
MMScanIO, 



of memory on this machine } 
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procedure InitMemory; 

Abstract: InitMemory initializes the memory manager. It is 
called once at system initialization and may not be called 
again. If the system was booted from a floppy, the system 
segments are all marked as UnSwappable. 



procedure DataSegC var S: SegmentNumber ); 

Abstract: DataSeg is used to 

1) - Determine if a given segment number represents a data 

segment . 

2) - Find the default heap segment (in the case of an input 

parameter of zero) . 

Parameters : 

S - Data segment number — zero means the default heap 
segment. 

Errors: 

UnusedSegment - if S is not in use. 
NotDataSegment - if S is not a data segment. 



procedure CodeOr DataSegC var S: SegmentNumber ); 

Abstract: CodeOr DataSeg is used to 

1) - Determine if a given segment number represents a 

defined segment 

2) - Find the default heap segment (in the case of an input 

parameter of zero) . 

Parameters: 

S - Data segment number — zero means the default heap 
segment. 

Errors: UnusedSegment if S is not in use. 
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procedure ChangeSize( S: SegmentNumber ; Fsize: MMExtSize ); 



Abstract: ChangeSize is used to change the size of an existinj 
data segment. 



Parameters : 

S - Number of the segment whose size is to be changed. 
Fsize - New size of the segment. 



Errors: 

UnusedSegment - if S is not in use. 

BadSize - if Fsize is greater than the maximum size of S or 

less than one. 
FullMemory - if there is not enough physical memory to 

increase the size of S. 
CantMoveSegment - if the segment must be moved, but it is 

not movable or its IOCount is not zero. 



procedure CreateSegmentC var S: SegmentNumber; Fsize, Fincrement, 
Fmaximum: MMExtSize ); 

Abstract: CreateSegment is used to create a new data segment. 

Parameters: 

S - Set to the. number of the new segment. 
Fsize - Desired size of the new segment in blocks. 
Fincrement - Increment size of the new segment in blocks. 
Fmaximum - Maximum size of the new segment. 

Errors : 

BadSize - if Fsize is greater than Fmaximum or less than 

one . 
Badlncrement - if Fincrement is greater than MMMaxExtSize 

or less than one . 
BadMaximum - if Fmaximum is greater than MMMaxExtSize or 

less than one. 
FullMemory - if there is not enough physical memory to 

create the segment. 
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procedure IncRef Count( S: SegmentNurnber ); 

Abstract: IncRef Count increments the number of references to a 
segment. A 
non-zero reference count prevents a segment from being 

destroyed. A reference count greater than one 

indicates a system segment. 

Parameters: 

S - Number of the segment. 

Errors: UnusedSegment if S is not in use. 



procedure SetMobility( S: SegmentNurnber; M: SegmentMobility ); 

Abstract: SetMobiiity sets the Mobility of a segment. The 
mobility may be set to one of the following values: 
Swappable - segment is a candidate for swapping or 

moving . 
LessSwappable - segment is a candidate for swapping or 

moving, but the memory manager will be more reluctant 

to swap. 
UnSwappable - segment may not be swapped, but may be 

moved . 
UnMovable - segment may not be swapped or moved. The 

RecentlyUsed bit of the segment is cleared also. Thus 

to make a segment a candidate for swapping, set its 

mobility to Swappable (even if it already swappable) . 

Parameters : 

S - Segment number. 
M - Mobility. 

Errors : 

UnusedSegment - if S is not in use. 

CantMoveSegment - if the segment is changing from Swappable 
to UnMovabl an attempt is made to move the segment to 
the high end of memory. If it has a non-zero 10 count, 
or swapping is disabled, this error is issued. 

FullMemory - if the segment is changing from Swappable to 
UnSwappable, it is swapped out, and there isn't enough 
memory to swap it in. 
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procedure DecRefCount( S: SegmentNumber ); 



Abstract: DecRef Count decrements the reference count of a segment 
by one. If reference and 10 counts both become zero: 

- if the segment is a data segment, it is destroyed. 

- if the segment is a code segment, it is destroyed only if 

it is in the screen or is non-resident. 



Parameters : 

S - Number of the segment. 



Errors: UnusedSegment if S is not in use. 



procedure Setlncrement( S: SegmentNumber; V: MMExtSize ); 

Abstract: Setlncrement changes the increment size of a data 
segment . 

Parameters : 

S - Number of the segment. 
V - New increment size. 



Errors : 

UnusedSegment - if S is not in use. 
NotDataSegment - if S is not a data segment. 
Badlncrement - if V is greater than MMMaxExtSize or less 
than one . 



procedure SetMaximum( S: SegmentNumber; V: MMExtSize ); 

Abstract: SetMaximum changes the maximum size of a data segment 

Parameters: 

S - Number of the segment. 
V - New maximum size. 



Errors: 

UnusedSegment - if S is not in use. 
NotDataSegment - if S is not a data segment. 
BadMaximum - if V is greater than MMMaxExtSize or less than 
one . 
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procedure SetSharable( S: SegmentNumber ; V: boolean ); 

Abstract: SetSharable changes the "sharable" attribute of a 
segment (this attribute is not currently used). 

Parameters : 

S - Number of the segment. 

V - New value of the "sharable" attribute. 

Errors: 

UnusedSegment - if S is not in use. 



procedure SetKind( S: SegmentNumber; V: SegmentKind ); 

Abstract: SetKind changes the kind (code or data) of a segment. 

Parameters: 

S - Number of the segment. 
V - New kind of the segment. 



Errors : 

UnusedSegment ' - if S is not in use. 



procedure MarkMemory; 

Abstract: MarkMemory marks all currently in use segments as 
system segments usually before loading a user program) by 
incrementing their reference counts. 



procedure CleanUpMemory; 

Abstract: CleanUpMemory destroys all user segments (usually at 
the end of a program execution) by deecrementing the 
reference count of all segments. 
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procedure EnableSwapping( Where: Integer ); 



Abstract: EnableSwapping turns the swapping system on, determines 
where swap files should be created, and locates the boot 
file. 



Parameters : 

Where - Fil'eld of some file in the partition to be used for 
swap files. 



procedure DisableSwapping; 

Abstract: DisableSwapping attempts to swap in all segments which 
are swapped out and then turns the swapping system off. If 
there is not enough physical memory to swap all segments in, 
swapping is not disabled. 

Errors: 

FullMemory - if there isn't enough memory to swap all 
segments in. 



procedure FindCodeSegment( var S: SegmentNumber ; Hint: SegHint ); 

Abstract: FindCodeSegment searches for a code segment in the 
segment table which has a certain SegHint. If such a 
segment is found, its Ref Count is incremented and the 
segment number is returned. Otherwise, a zero segment 
number is returned. 

Segments which 1) Have a Diskld equal to Hint. Fid, 2) Have 
an Update date/time not equal to Hint. Update, and 3) Have a 
Ref Count of zero are deleted. This is done because such a 
segments reference code files which have been overwritten 
and are no longer valid. Such' segments will not get the 
memory manager into trouble, but they will never be used 
again, and it is just as well to get rid of them. 

**** Hint must be a valid hint. That is, the file specified 
**** by Hint. Fid must have a FileWriteDate equal to 
Hint. Update . 

Parameters : 

S - Return parameter set to zero or the number of the code 

segment. 
Hint - Desired SegHint. 
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module Memory 



function CurrentSegment : SegmentNumber ; 



Abstract: CurrentSegment finds the segment number of its caller. 

Result: CurrentSegment = Segment number of the caller of 
CurrentSegment . 
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module MoveMem; 

MoveMem - Move memory. 

J. P. Strait ca. 1 Jan 80. 

H fS T\\T Y* ^ ft Y\ t~ f C\ TVireO Dt if av» c« rnmnnf at" f/M«rirty«2f -5 «« 1 QQll 1QOl 

Abstract : 

MoveMem is used to move a segment from one location to another in 
physical memory. The two locations may overlap. 

Version Number V1.8 
exports 

imports Memory from Memory; 

procedure CopySegment 

( SrcSeg, DstSeg: SegmentNumber ; NewDstBase: Integer ); 
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procedure CopySegment( SrcSeg, DstSeg: Segmen t Number ; NewDstBase: 
Integer ) ; 

Abstract: CopySegment is used to move a segment from one location 
to another in physical memory. 

Parameters: 

SrcSeg - Number of the segment which represents the source 

address and source size. 
DstSeg - Number of the segment which represents the 

destination address. 
NewDstBase - New value of the base address for. DstSeg. 

Result: Base address of SrcSeg - set to the old base 
address of DstSeg. Base address of DstSeg - set the 
NewDstBase . 

Design: CopySegment moves segments without swapping them, and is 
designed in such a way that it may move itself or its own 
stack. In order to be able to do this, CopySegment is in a 
code segment by itself so that any call is guaranteed to be 
a cross-segment call. Thus when the move operation is 
complete, a cross segment return is done, and the CodeBase 
micro-code register is reloaded. Movemem executes a special 
StartIO instruction to cause the micro-code to reload its 
StackBase register. This code segment must never exceed 256 
words in length so that when CopySegment moves itself, the 
new copy cannot overlap the old one. 

CopySegment uses RasterOp to copy the memory in order that 
the copy be done as an indivisible operation. 

DO NOT CHANGE this routine unless you fully understand the 
entire system. 
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Module MultiRead; 



Written by Brad Myers 24 Jul 81. 

Copyright (C) Three Rivers Computer Corporation, 1981. 

Abstract z 

This Module exports a procedure to read a file very quickly into 
memory. The memory for the blocks of the file to be read must be 
allocated contiguously before the call is made. Typically, this 
will be done by using CreateSegment . 

Version Number V1.0 

{//////////////////////////} EXPORTS {\\\\\\\\\\\\\\\\\\\\\\\W\} 

Imports FileSystem from FileSystem; 

Procedure MultiRead 

(fid: FilelD; addr: pDirBlk; f irstBlock,numBlocks : integer); 
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Procedure MultiRead ( f id : FilelD; addr: pDirBlk; f irstBlock,numBlocks : 
integer ) ; 

Abstract: Does a multi-sector read on the file specified into the 
memory pointed to by addr NOTE: This only works for 
contiguous files. 

Parameters: fid - the filelD of the file to read from. 

addr - the address of the start of the memory to read the 

file into. This must be pre-allocated . 
firstBlock - the logical block number of the first to read 

(the first legal value is 0; -1 will not work). 
numBlocks - the count of the number of blocks to transfer. 
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module PasLong; 

PasLong - Extra stream package input conversion routines. 
J. P. Strait & Michael R. Kristofic ca. 15 Sep 81. 
Copyright (C) Three Rivers Computer Corporation, 1981. 

Abstract : 

PasLong is the extra character input module of the Stream 
package. Its routines are called by code generated by the Pascal 
compiler in response to variations on Read, Readln, Write and 
Writeln statements. It is one level above Module Stream and uses 
Stream's lower-level input routines. 

Version Number V2.2 
exports 

imports Stream from Stream; 

procedure ReadD( var F: FileType; var X: long; B: integer ); 
procedure WriteDC var F: FileType; X : long; Field, B: integer ); 
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procedure ReadDC var F: FileType; var X: long; B: integer ); 

Abstract: Reads an double integer in free format with base B. B 
may be any integer between 2 and 36, inclusive. 

Parameters: 

X - the double to be read . 

F ■- the file from which X is to be read. 

B - the base of X. It may be any integer between 2 and 36, 
inclusive. If B is less than zero and the user does 
not type an explicit plus or minus sign, X is read as 
an unsigned number. 

Errors : 

PastEof -if an attempt is made to read F past the Eof. 

Not Number - if non-numeric input is encountered in the file. 

LargeNumber - if the number is not in the range 

-2*31. .2*32-1 . 

BadBase - if the base is not in 2.. 36. 

Design: Number is read into the low order word of two double 
precision integers to avoid overflow. 



procedure WriteD( var F: FileType; X: long; Field, B: integer ); 

Abstract: Writes an double integer in fixed format with base B 



Parameters : 

X - the double to be written. 
F - the file into which X is to be written. 

Field - the size of the field into which X is to be written. 
B - the base of X. It is an integer whose absolute value 
must be between 2 and 36, inclusive. If B is less than 
zero, X is written as an unsigned number. 



Errors : 

BadBase -if the base is not in 2.. 36. 

Design: Value written from two double precision words to avoid 
overflow. 
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module PasReal; 

PasReal - Scott L. Brown . Created: 25-Nov-81 
Copyright (C) 1981 - Three Rivers Computer Corporation 

Abstract : 

PasReal is an extra character input module of the Stream package. 
.Its routines are called by code generated by the Pascal compiler 
in response to variations on Read, Readln, Write and Writeln 
statements. It is one level above Module Stream and uses 
Stream's lower-level input routines. 

Version Number V0.1 
exports 

imports Stream from Stream; 



procedure ReadR(var F: FileType; 

var value : real) ; 

procedure WriteR(var F: FileType; 

e: real; 

TotalWidth: integer; 
Frac Digits: integer; 
format : integer) ; 
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procedure ReadR(var F: FileType; var value: real); 



Abstract: 

This procedure reads a real number from the file F, and 
returns its value. 



Parameters: 

F - identifies the file from which to read. 

value is a return parameter returning the value of the 
real number read from the file F. 

Results: 

This procedure modifies the file buffer for F, and stores 
the value of the real number in value. 

Side Effects: 

This procedure reads characters from the external file F, 
until it receives a character which cannot be part of the 
real number, and it leaves this character in the file 
buffer. 

There has been only minimal care taken with the file buffer, 
so if an exception is raised during the read, there is no 
guarantee about its contents. 

Exceptions: 

PastEof - raised if an attempt is made to read beyond the 
end of file. 

NotReal - raised if the stream of characters in file F does 
not correspond to a real number . 

SmallReal - raised if the number read is too small to be 
represented by a 32-bit IEEE-Standard real number. 

LargeReal - raised if the number read is too large to be 
represented by a 32-bit IEEE-Standard real number. 

Calls: 

StreamName - in module Stream for the stream name of file F. 
■ GetC - in module Stream for reading the next character from 
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file F. 

RealMul 

TenPower - returns a real number representing 10.0 raised to 
an integer (range -37. .38) power. 



Design : 



The regular expression for real numbers is described by a 
DFA and implemented by a case statement, where each element 
of the case statement corresponds to a state in the DFA. 
This case statement stores information about the number read 
into (primarily) three variables: 1) mant - the mantissa of 
the number read (up to 2**24-1), 2) scale_factor - any 
adjustment to the mantissa (as a power of ten), and 3) exp - 
the exponent of the number read. 

Effort is taken to ignore zeros whenever possible. If they 
are insignificant they are ignored, if significant they 
cause an adjustment to the scale_factor and do not affect 
the mantissa. The variables save_scale_f actor , save_mant , 
zero_count, frac_part and sig_digit_in_frac are used for 
this purpose. 

To combine this information into a real number, the 
scale_factor is added to the exponent and this sum is the 
power - of ten exponent of the mantissa. To combine sum with 
the mantissa, it has to be converted to a real number, which 
is done by the function TenPower. Then the result of 
TenPower is multiplied with the mantissa to produce the real 
number returned as value. 

Much care has been taken to avoid calls to TenPower with 
actual parameters which are out of range, and also to 
minimize the number of real multiplications necessary (this 
to avoid error propogation) . 



procedure WriteR(var F: FileType; e: real; TotalWidth: integer; 
FracDigits: integer; format: integer); 



Abstract : 

This procedure writes a real number to a file F, under the 
given format specifications. 
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Parameters: 

F - the file to which to write. 

e - the value to write. 

TotalWidth - the minimum number of characters to write. 

FracDigits - the number of characters in the fractional part 
(used for fixed format only). 

format - indicates either fixed or floating format. 

Results : 

The file buffer for F is modified by procedures nested in 
this one. 

Calls: 

StreamName - in module Stream for the stream name of file F. 
base2__to__base10 
normalize 



Design : 



There is some initialization, then if the real number to be 
written is zero, eWritten and ExpValue are obviously zero, 
else the real number needs to be converted to base 10 giving 
eWritten and ExpValue. Then a call is made to a procedure 
for the desired format. 

The design here follows as much as possible the ISO Standard 
description for writing Pascal real numbers, in particular, 
the choice of many variable names. 
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Module PERQ String 



PERQ String manipulation routines. 
Written by: Donald Scelza 
Copyright (C) 1980 
Three Rivers Computer Corporastion 

Abstract : 

This module implements the string manipulation routines for the 
Three Rivers PERQ Pascal. 

Strings in PERQPascal are stored a single character per byte with 

the byte indexed by being the length of the string. When the 

routines in this module must access the length byte, they must 
turn off range checking. 

Version Number V2.4 

{*#*************##***} Exports {**********#*********} 

Const MaxPStringSize=255; { Length of strings} 

Type PString = String[MaxPStringSize] ; 

Procedure Adjust(Var STR:PString; LEN: Integer ) ; 

Function Concat(Str 1 , Str2: PString) : PString; 

Function Substr( Source : PString ; Index, Size: Integer ): PString; 

Procedure Delete(Var Str:PString; Index , Size : Integer ) ; 

procedure Insert(Var Source , Dest : PString ; Index : Integer ) ; 

Function Pos( Source , Mask : PString) : Integer; 

FUNCTION PosC(s: PString; c: Char): Integer; 
PROCEDURE AppendString(var s1: PString; s2: PString); 
PROCEDURE AppendChar(var s: PString; c: Char); 
FUNCTION UpperCase(c: Char): Char; 
PROCEDURE ConvUpper(Var s: PString); 

Exception StrBadParm; 

Abstract: Raised when bad index or length parameters passed to 
procedures or 

sometimes when string will be too long (other times, 
StrLong is raised in this case 

Function RevPosC(s: PString; c: char): integer; 
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Procedure Adjust (var Str:PString; Len : Integer ) ; 

Abstract: This procedure is used to change the dynamic length of 
a string. 

Parameters: Str is the string that is to have the length changed. 

Len is the new length of the string. This parameter must be 
This value must be no greater than MaxPStringSize . 

Environment: None 

Results: This procedure does not return a value. 

Side Effects: This procedure will change the dynamic length of 
Str. 

Frrnrs * T'f Ton "> MayPSt.n'nff .^i 7P t.hpn rai-^P ShrF.nnir py ceDt i <">n * 

Design: Simple. 

Function Concat(Str1 , Str 2: PString) :PString; 

Abstract: This procedure is used to concatenate two string 
together . 

Parameters: Str1 and Str2 are the two strings that are to be 
concatenated . 

Environment: None 

Results: This function will return a single string as described 
by the parameters. 

Errors: If Length(Strl) + Length(Str2) is greater then 
MaxPStringSize then raise StrLong exception. 

Design : 
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Function SubStr( Source : PString ; Index, Size : Integer ): PString ; 

Abstract: This procedure is used to return a sub portion of the 
string passed as a parameter. 

Parameters: Source is the string that we are to take a portion 
of. 

Index is the starting position in Source of the substring. 

Size is the size of the substring that we are to take. 

Environment: None 



Results: This function returns a substring as described by the 
parameter list. 



Errors: If Index or Size are greater than MaxPStringSize then 
raise StrBadParm exception. 



Design : 



Procedure Delete(var Str:PString; Index, Si ze : Integer ) ; 



Abstract: This procedure is used to remove characters from a 
string . 

Parameters: Str is the string that is to be changed. Characters 
will be removed from .this string. 

Index is the starting position for the delete. 

Size is the number of character that are to be removed. 
Size characters will be removed from Str starting at Index. 



Environment: None 



Results: This procedure does not return a value. 



Side Effects: This procedure will change Str, 
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Errors: None 

Design: 

Procedure Insert(var Source, Dest :PString ; Index :Integer) ; 

Abstract: This procedure is used to insert a string into the 
middle of another string. 

Parameters: Source is the string that is to be inserted. 

Dest is the string into which the inseration is to be made. 
Index is the starting position, in Dest, for the inseration. 

Environment: None 

Results: This procedure does not return a value. 

Side Effects: This procedure will insert Source in Dest starting 
at location Index. 



Errors: If the resulting string is too long then generate a 
runtime error. 



Design: 

PROCEDURE AppendString(var s1: PString; s2: PString); 
Abstract: puts s2 on the end of s1 

Parameters : s1 is the left String and s2 goes on the end. 

Calls: PerqString.Concat . 

SideEffects : modifies s1. 
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PROCEDURE AppendChar( var s: PString; c: Char); 

Abstract: puts c on the end of s 

Parameters : s is the left String and c goes on the end. 

SideEffects : modifies s. 

FUNCTION UpperCase(c: Char): Char; 

Abstract: Changes c to uppercase if letter. 

Parameters: c is any char. 

Returns: char is uppercase if letter otherwise unchanged. 

Procedure ConvUpper ( Var s: PString); 

Abstract: Converts s to all upper case 

Parameters: s, passed by reference, to be converted 

Function PosC(s: PString; c: char): integer; 
Abstract: Tests if c is a member of s. 

Parameters: c is any char; s is string to test for c member of. 

Returns: index of first c in s (from beginning of string) or zero 
if not there. 

Function RevPosC(s: PString; c: char): integer; 
Abstract: Tests if c is a member of s. 

Parameters: c is any char; s is string to test for c member of. 

Returns: index of first c in s (from end of string) or zero if 
not there. 
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Function Pos(Source, Mask:PString) : Integer ; 

Abstract: This procedure is used to find the position of a 
pattern in a given string. 

Parameters: Source is the string that is to be searched. 
Mask is the pattern that we are looking for. 

Environment: None 

Results: If Mask occured in Source then the index into Source of 
the first character of Mask will be returned. If Mask was 
not found then return 0. 

Side Effects: None 

Errors: None 

Design: 
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module PMatch; 

Abstract : 

Does pattern matching on strings 

Patterns accepted are as follows: 

"*" matches or more characters. 

"&" matches 1 or more characters. 

"#" matches exactly 1 character. 

"'0 n matches any digit. 

111 A" matches any alphabetic (capitals only unless casefold). 

"♦a" matches any alphabetic( lower case only unless 'casefold'). 

"'§" matches any non-alphanumeric. 

"'*" matches '*', other patterns chars can be quoted also. 

Written by: Gene Ball at CMU 
Version Number V2.5 
{/////////////////////////////} Exports {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\} 

Type pms255 = String[255l; 

Function PattMatch( var str, pattern: pms255; fold: boolean): boolean; 

Function PattMap(var str , inpatt ,outpatt ,outstr : pms255 ; fold -.boolean) : boolean; 

Procedure PattDebug(v: boolean); 

Function IsPattern( var str: pms255): boolean; 

Exception BadPatterns; 

Abstract: Raised if outpatt and inPatt do not have the same 
patterns 

in the same order for PattMap 



- 162 - 



POS D.6 Interface module PMatch 

05 Feb 82 

Procedure PattDebug(v: boolean); 

Abstract: Sets the global debug flag. 
Parameters: v is value to set debug to 
SideEffects: Changes debug value 

Function IsPattern( var str : pms255): boolean; 

Abstract: Tests to see whether str contains any pattern matching 
characters 

Parameters: str - string to test. If not pattern then removes 
all quotes . 

Returns: true if str contains any pattern matching characters; 
else false 

Function PattMatch( var str, pattern: pms255; fold: boolean): boolean; 

Abstract: Compares str against pattern 

Parameters: str - full string to compare against pattern; 

pattern - pattern to compare against. It can have special 

characters in it 
fold - determines whether upper and lower case are distinct. 

If true then not. 

Returns: true string matches pattern; false otherwise 

Function PattMap(var str , inpatt , outpatt , 
out str :pms255;fold : boolean) : boolean ; 

Abstract: Compares str against inPatt, putting the parts of str 
that match inpatt into the corresponding places in outpatt 
and returning the result EXAMPLES: 

PattMap( »test9.pas f , ' test « 0. pas' , f xtest » O.pas* ) = > "TRUE, 
'xtestg.pas 1 

PattMap( 'testg.pas 1 , '*.pas», 'S.ada 1 ) =>TRUE, f test9.ada f 

Parameters: str - full string to compare against pattern; 

inpatt - pattern to compare against. It can have special 

characters in it 
outpatt - pattern to put the parts of str into; it must 

have the same special characters in the same order as 

in inpatt 
outStr - the resulting string if PattMap returns true; 
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fold-determines whether upper and lower case are distinct. 
It true then not. 

Returns: true string matches pattern; false otherwise 

Errors: Raises BadPatterns if outPatt and irsPatt do not have the 
same patterns in the same order 
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Module PopCmdParse 



Abstract: 

This module provides procedures to help with PopUp menus. See 
the module Popup for the definition of pNameDesc and for some 
useful procedures for creating and destroying pNameDescs. 

Written by Brad Myers Nov 18, 1981 

Copyright (C) 1981 Three Rivers Computer Corperation 

Version Number V1.8 

{*****#*»*********»««} Exports {********************} 

Imports Cmd Parse from Cmd Parse; 
Imports PopUp from PopUp; 

Function PopUniqueCmdlndex ( Cmd : CString; Var names: pNameDesc): Integer; 

Function GetCmdLine(Procedure IdleProc; prompt: String; 

var line, cmd: CString; var inF: pCmdList; 
var names: pNameDesc; var firstPress: boolean; 
popOK: boolean): integer: 

Function GetShellCmdLine( var cmd: CString; var inF: pCmdList; 

var names: pNameDesc): integer; 

Function GetConf irm(Procedure IdleProc; popOK: boolean; 

prompt: String; def: integer; 
var switches: pSwitchRec) : integer; 

Procedure NullIdleProc ; 
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Procedure NullIdleProc; 

Abstract: This procedure does nothing. It is useful as an 
IdleProc parameter to other procedures when no IdleProc is 
needed . 

Function PopUniqueCmdlndex ( Cmd : CString; Var names: pNameDesc): 
Integer; 

Abstract: This procedure is used to do a unique lookup in a popUp 
command table. It is the same as UniqueCmdlndex except the 
table of names is the kind used by popUp menus. If cmd is 
the full name of one of the names in names, even if is also 
a sub-part of other names, it is returned as the one found. 

Parameters: Cmd - the command that we are looking for. 

CmdTable - a table of the valid commands. The first valid 
command in this table must start at index 1. 

NumCmds - the number of valid command in the table. 

Returns: The index of Cmd in CmdTable. If Cmd was not found then 
return NumCmds +1. If Cmd was not unique then return 
NumCmds+2. 

Function GetShellCmdLine( var cmd: CString; var inF: pCmdList; var 
names: pNameDesc): integer; 

Abstract: This routine is similar to GetCmdLine except that it 
works on the command line specified to the Shell, It is 
should be used by programs that use GetCmdLine to parse the 
Shell command line. Command files are handled by 
GetShellCmdLine . The user can call ParseCmdArgs after 
GetShellCmdLine to get the arguments to the command. 

Parameters: cmd - the first command taken off the line. This 
will be valid even if the return value is greater than 
numCommands. It will be ' ' if no command found before the 
first significant break character. 

inF - a command file list created by InitCmdFile. Just call 

InitCmdFile and pass in the inF returned. This 

procedure manages the list and handles all command 
files. 

names - a variable length array of names used for popUp 
menus and for matching the input cmd against. 

Returns: Identical to GetCmdLine. Viz: index in the array or 

numCommands + 1 ==> Name not found in array 

numCommands + 2 ==> Name not unique 
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n urn Commands + 3 ==> Name was empty 

numCommands + 4 ==> First command was a switch (it is in 
Cmd ) . 

numCommands + 5 ==> Illegal character found after command. 
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Module PopUp; 



Written by Brad A. Myers 16-Nov-80 

Abstract: This program produces pop up windows that replace the screen 
area at a specified cursor location. The cursor is then changed 
and PopUp waits for a press. Whenever the cursor is inside the 
window, the command at that point is highlighted. If a press is 
done inside the window, the highlighted command is selected. The 
user can control whether one or more than one command should be 
selected before window is removed. If a press outside outside, 
no command is executed. In any case, the window is erased and 
the original contents of that area is returned 

Copyright (C) 1981 - The Three Rivers Computer Corporation 
Version Number V2.4 
{_*_*_*_*_*_*_*_*_*_*_*_*_*-*_} EXPORTS {-*-*-*-*-*-*-*-*-*-*-*-*-*-*-} 

EXCEPTION BadMenu; 

Abstract: Raised when parameters are illegal. 
EXCEPTION Outside; 

Abstract: raised when press outside of menu. 

Type s25 = String[25] ; 

NameAr = Array[1..T] of s25; 
pNameAr = " NameAr; 
NameDesc = Record 

header : s25 ; 
numCommands: integer; 
commands: NameAr; 
End ; 
pNameDesc = ^NameDesc; 

ResRes = "ResArray; 
ResArray = Record 

numlndices: integer; 

indices: Array[1..1] of integer; 
End ; 

PROCEDURE Menu(names: pNameDesc; isList: boolean; 

first, last, curX, curY, maxYsize: integer; VAR res: ResRes 

PROCEDURE InitPopUp; 

PROCEDURE DestroyRes(var res: ResRes); 

PROCEDURE AllocNameDesc(numNames , seg: Integer; Var names: pNameDesc); 
PROCEDURE DestroyNameDescCVar names: pNameDesc); 
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Procedure AllocNameDesc ( numNames , seg: Integer; Var names: pNameDesc); 

Abstract: There are two ways to allocate the storage for a 
NameDesc. One is to declare in your program a type with an 
array of the correct size and the other fields exactly the 
same way. You then RECAST a pointer to that array into a 
pNameDesc. The other way is to use this procedure. It 
allocates the storage for numNames out of a segment. Turn 
off range checking when assigning or accessing the array. 

NOTE: To deallocate the nameDesc returned, use 
Destroy NameDesc 

Parameters: numNames - the number of names in the array. 

seg - the segment to allocate the nameDesc out of. If zero, 
then uses the default segment. This procedure uses 
NewP so the segment can have other things in it also. 

names - set with the newly allocated pNameDesc. Its 
numCommands field is set with numNames. Do not change 
this size or the deallocation will not work. 

Procedure DestroyNameDesc(Var names: pNameDesc); 

Abstract: Delete names. It should have been created by 
AllocateNameDesc . The numCommands field better be the same 
as set when allocated. 

Parameters: names - The storage for names is deallocated and 
names is set to NIL. 

PROCEDURE InitPopUp; 

Abstract: creates cursors needed to make PopUp windows work. 
This should be called once before calling menu. 

Environment: sets cursors. 

PROCEDURE DestroyRes(var res: ResRes) ; 

Abstract: Deallocates storage for res and sets it to NIL 
Parameters: res is ResRes to destroy 
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PROCEDURE Menu( names : pNameDesc; isList: boolean; first, last, curX, 
curY, maxYsize: integer; VAR res: ResRes) ; 

Abstract: puts up a window with commands commands stacked 

vertically with the center at curX, curY. Allocates off the 

heap enough storage for old picture at that place so can 
restore it. Deallocates all storage when done. 

Parameters: names - a pointer to an array of names to put in the 
menu. In it 

header - is put at the top of the menu. It may be empty in 
which case there is no header. 

numcommands - the number. of names in the array. 

commands - an array of names to display. These can be 
generated by having pNameDesc with an array of the 
correct (or larger than the correct) size and recasting 
it into a pNameDesc, or by creating a segment to hold 
all the names that will be needed. 

isList - if true says that a number of commands can be 
selected, if false, Menu returns as soon as the first 
command is selected . 

first - the index of the first command in names* .commands to 
display. To display all items, use 1. 

last - the index of the last command in names* .commands to 
display. To display all items, use names" .numCommands . 
Last must be greater than first. 

curX - the x position at which to display the menu. If -1 
then uses current pen position. 

curY - the y position at which to display the menu. If -1 
then uses current pen position. 

maxYsize - the maximum size in bits of the menu. If -1, 
then menu will be big enough to hold all items (up to 
the size of the screen) . maxYsize must be greater than 
4*(fontHeight+4) which is 68 for the default font. 

res - is set with an answer array. This array is allocated 
off the heap by Menu. Use DestroyRes to deallocate it. 
If Menu is exited via *C or a press outside, then res 
is not allocated. The fields of res are set as 
follows : 

numlndices - the number of items selected. If not isList 
then will be 1 . If isList, will not be zero 

indices - a variable length array of the indices of the 
names chosen. They are in increasing order 

irrespective of the order the names were picked. 
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Errors: Catches CtlC and raises CtlCAbort after removing the 
menu. Catches CtlShiftC and erases menu then re-raises 
CtlShiftC. Catches HelpKey and erases menu and then 
re-raises. If continued, then raises OutSide. Raises 
OutSide if press outside of the menu window. Raises BadMenu 
if parameters are illegal. 

Environment: Requires enough memory be on the heap for picture. 
Requires that InitPopup has been called. 
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module Profile 



Abstract: 

This module is used to get information from the user profile 

file. 

Written by: Don Scelza 

Copyright (C) Three Rivers Computer Corperation, 1981 

Version Number V1.1 

p*******************} Exports {********************} 

This module provides facilities that will allow a program to get informati 
from the user profile. 

The profile file is a text file that has the form: 

#<Subsystem name)' <Line of text for that sub system> <More text for th 
subsystem) - - - #<Next subsystem) 

The base unit of the file is a text line. The function that provides valu 
from the profile file will return a line of text each time that it 
called. All text line between the #<Subsystem name) and the r>.« 
/^Subsystem name) are assumed to be assoicated with the first subsya 
Successive calles to PFileEntry will return the next line of text fori 
current subsystem. 

Exception PNotFound ( FileName : String); 

Abstract: Raised when profile file cannot be found 

Parameters: fileName is profile not found 
Exception PNotlnited; 

Abstract: Raised when a profile procedure is used but PFilelnit 
not called 
first 

Type ProfStr = String[255] ; 

procedure PFileInit( PFileName , Subsystem: ProfStr); 

function PFileEntry: ProfStr; 



- 172 - 



POS D»6 Interface module Profile 

05 Feb 82 

procedure PFileInit(PFileName , Subsystem: ProfStr); 

Abstract: This procedure is called each time' a subsystem wishes 
to start to read information from the profile file. It is 
only called once per subsystem invocation. It will lookup 
the profile file and search for the required subsystem. 

Parameters: PFileName is the name of the profile file that is to 
be used . 

Subsystem is the name of the subsystem that is to be 
searched for . 

Side Effects: This procedure will change Inited , InLine and 
PFile. 

Errors: If PFileName was not found then raise PNotFound . 



function PFileEntry: ProfStr; 

Abstract: This procedure is used to get the next profile entry 
for a subsystem. 

Results: This procedure will return the next line from the 
profile file for the current subsystem. If there are no 
more lines for the current subsystem return null. 

Environment: PFilelnit must have been called before this 
procedure is used. Uses the global InLine. Sets InLine to 
be empty. 

Errors: If PFilelnit v/as not called then raise PNotlnited. 
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module Quicksort; 

Copyright (C) 1981 Three Rivers Computer Corporation 

Written by: Mark G. Faust 

Abstract : 

Hoare's Quicksort algorithm with some simple optimizations. This 
module provides two procedures, IntegerSort and StringSort, which 
sort arrays of integers and strings respectively. 

For a detailed description of the algorithm and references to 
papers on its analysis see [Robert Sedgewick, "Implementing 
Quicksort Programs," in CACM 21(10), 1978.] 

Because of rigid type checking of arrays in Pascal, pointers to 
the arrays to be sorted are passed along with an integer 
specifying the length of the array. The procedures require that 
the array be declared [0..N+1] where the 0th through Nth elements 
are to be sorted. The additional array element is used- to speed 
up the sorting routine. Before passing the array pointer to the 
sort procedure it is RECAST as either a Integer ArrayPtr or a 
StringArrayPtr . An example for the integer sort is given below. 
The string sort is analogous. 

program ShowSort( input , output) ; 

imports Quicksort from Quicksort; 

const Size = 99; 

type MyArray r array[ 0. . Size+1 ] of integer; 

var MyArrayPtr :~MyArray; i :integer; 

begin new( MyArrayPtr ) ; 

for i := to Size do readin(MyArrayPtr"[ i] ) ; 

IntegerSort (Size , recast (MyArrayPtr , Pint Array)); 

for i := to Size do writeln(MyArrayPtr~[ i] ) ; end. 

exports 

type 

ss25 = String[25]; 

IntArray = array[0..0] of integer; 

StrArray = array[0..0] of ss25; 

PIntArray = "IntArray; 

PStrArray = "StrArray; 
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module Quicksort 



procedure Integer Sort(N -.integer; A :PIntArray); 
procedure StringSort(N :integer; A: PStrArray; Fold 



iboolean) ; 
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procedure IntegerSort( N :integer; A :PIntArray); 

Abstract: Given an integer N and a pointer to an array [0..N+1] 
of integers, sort [0..N] into ascending order using 
Quicksort . 

Parameters: N '.integer One less than the upper bound of the 
array. It is the largest index of a valid key. 

A :PIntArray A pointer to an array [0..N+1] of integers. 

Results: The array from [0..N] is in ascending order 

Side Effects: The array is sorted and the N+1st element contains 
Maxlnt 



procedure StringSort(N :integer; A :PStrArray; Fold :boolean) ; 

Abstract: Given an integer N and a pointer to an array [0..N+1] 
of strings, sort [0..N] into ascending lexigocraphic order 
using Quicksort. StringSort is case sensitive (e.g. A < a) 
unless Fold is True. 



Parameters: N :integer One less than the upper bound of the 
array. It is the largest index of a valid key. 

A :PStrArray A pointer to an array [0..N+1] of strings. 

Fold :boolean If True then we fold to UpCase for 
comparisons. 



Results : 

The array from [0..N] is in ascending order 

Side Effects: 

The array is sorted and the N+lst element contains the DEL 
character 
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module RandomNumbers 



J. P. Strait 15 Sep 80. 

Copyright (C) Three Rivers Computer Corporation, 1980. 



Module RandomNumbers contains two routines: 

InitRandom - initializes the random number generator. 

Random - a function which returns a new random number each time 
it is referenced. 

There is currently no way to seed the generator. 

Random is a feedback shift-register pseudo-random number generator 
The algorithm used is one described in the article: 

'Generalized Feedback Shift Register Pseudorandom Number 

Generator » 

T. G. Lewis and W. H. Payne 

JACM Vol. 20, No. 3, July 1973, PP . 456-468. 

Random produces multidimensional pseudo-random numbers equally 

distributed in the interval -32768. .32767 and has a period of 

2~98. 

Version Number V1.2 

{////////////////////////////} exports {\\\\\\\\\\\\\\\\\\\\\\\\\} 

procedure InitRandom; 
function Random: integer; 
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Procedure InitRandom; 

Abstract: Initialize the random number generator. Every time 
this is called, the random numbers start over at the same 
place . 



- 178 - 



POS D.6 Interface 
05 Feb 82 

MODULE Raster; 



MODULE Raster 



Copywrite (C) 1980 - The Three Rivers Computer Corporation 
EXPORTS 

Const RRpl =0; { Raster Op function codes } 

RNot = 1 

RAnd = 2 

RAndNot = 3 

ROr = 4 

R Or Not = 5 

RXor = 6 

RXNor = 7 

Type RasterPtr = ^Raster Array ; {a pointer that can be used as Raster Op 

or Line source and destination } 
RasterArray = Array[0..0] of integer; 
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Module ReadDisk 



Abstract: 

Module to Read and write to the disk using a buffer system 

Written by the CMU Spice Group 
Version Number V1.5 
I******************} exports I***************************} 

imports DisklO from DisklO; 



function ReadDisk( addr : DiskAddr) 
function ChangeDisk( addr : DiskAddr) 
function ReadHeader ( addr : DiskAddr) 
function ChangeHeader ( addr : DiskAddr) 
procedure FlushDisk( addr : DiskAddr); 
procedure WriteDisk( addr : DiskAddr; ptr : 
procedure WriteHeader ( addr : DiskAddr; ptr 



ptr DiskBuf fer ; 
ptrDiskBuffer ; 
ptr Header ; 
ptr Header ; 

ptrDiskBuffer; hdptr : ptrHeader); 
: ptrDiskBuffer; hdptr : ptrHeader) 



proc 
func 
proc 
proc 
proc 
proc 
proc 
proc 
func 
func 
func 
oroc 



edur 
tion 
edur 
edur 
edur 
edur 
edur 
edur 
tion 
tion 
tion 
edur 



+■ Pnffar 



in it Bui ler s ; 

FindDiskBuf fer (dskaddr : DiskAddr; alwaysfind : boolean) : integer; 

ReleaseBuf fer ( indx : integer); 

FlushBuf fer ( indx : integer); 

FlushAll; 

ChangeBuf fer ( indx : integer); 

ChgHdr(indx : integer); 

UseBuf fer ( indx ,numtimes : integer); 

Buffer Pointer ( indx : integer) : ptrDiskBuffer; 

Header Pointer ( indx : integer) : ptrHeader; 

ReadAhead( addr : DiskAddr) : ptrDiskBuffer; 

ForgetAll ; 



Exception' FlushFail (msg : String; operation: DiskCommand; addr: DiskAddr; 

softStat: integer); 

Abstract: Raised when the system is unable to flush out a buffer. 
The buffer 

is marked as flushed out, however, so the error will 
not repeat the next time a buffer needs to be flushed 

Parameters: Same as DiskFailure (in DisklO) 

Resume: ALLOWED, but has no effect (procedure will return 
normally as if 

flush had been successful) 
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Function ReadDisk( addr : DiskAddr) : ptrDiskBuf fer ; 

Abstract: Read the block specified and return the ptr of the 
buffer read into 

Parameters: addr is the address of the block to read 

Returns: ptr to buffer read into 

Function Read Ahead (addr : DiskAddr) : ptr DiskBuf fer ; 
Abstract: Identical to ReadDisk 

Parameters: addr is the address of the block to read 
Returns: ptr to buffer read into 

Function ReadHeader (addr : DiskAddr) : ptrHeader ; 

Abstract: Reads block specified and returns a ptr to a buffer 
describing its header 

Parameters: addr is the address of the block to read 

Returns: ptr to header read into 

Function ChangeDisk( addr : DiskAddr) : ptrDiskBuf fer ; 

Abstract: Reads block specified and returns a ptr to its data; in 
addition, mark file as changed so flush will write it out 

Parameters: addr is the address of the block to read 

Returns: ptr to buffer holding the block read into 

Function ChangeHeader( addr : DiskAddr) : ptrHeader; 

Abstract: Reads block specified and returns a ptr to its data; in 
addition, mark file as header changed so flush will write it 
out using IOWriteFirst 

Parameters: addr is the address of the block to read 

Returns: ptr to header read into 
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Procedure FlushDisk( addr : DiskAddr); 

Abstract: Removes block specified from buffer system and writes 
it out if changed. If addr not in buffer then NO-OP 

Parameters: addr is block to flush 

Procedure WriteDiskC addr : DiskAddr; ptr : ptr DiskBuf fer ; hdptr : 
ptrHeader ) ; 

Abstract: Writes out a block using DskWrite. If block for addr 
is in a buffer then Release it first. 

Parameters: addr - the address of the block to write 
ptr - points to a buffer of data 
hdptr - points to a buffer of header 

Procedure WriteHeader ( addr : DiskAddr; ptr : ptr DiskBuf fer ; hdptr : 
ptrHeader) ; 

Abstract: Writes out a block using DskFirstWrite . If block for 
addr is in a buffer then Release it first. 

Parameters: addr is the address of the block to write ptr points 
to a buffer of data hdptr points to a buffer of header 

Procedure InitBuffers; 

Abstract: Initializes the buffer system 

function FindDiskBuf fer(dskaddr : DiskAddr; alwaysfind : boolean) : 
integer ; 

Abstract: Finds the buffer that contains the data for block 
d s k Ad d r . 

Parameters: dskAddr - is address to find buffer for alwaysFind 
tells whether to read in if not found 

Returns: Index of buffer found or zero if not there 

Procedure ReleaseBuf fer ( indx : integer); 

Abstract: Mark the table entry as unused. 
Parameters: indx - is entry to mark 
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Procedure FlushBufferC indx : integer ); 

Abstract: Write out the data for the buffer indx if changed and 
then mark the buffer as not changed. 

Parameters: indx - is buffer to flush 

Errors: FlushFail - is raised if cannot Flush a buffer due to a 
write error 



Procedure FlushAll; 

Abstract: Writes out the data for all the buffers and then mark 
them all as unchanged. 

Errors: FlushFail - is raised if cannot Flush a buffer due to a 
write error. Does not stop at first error, but goes and 
tries all buffers before raising the exception 

Procedure ChgHdr(indx : integer); 

xwovsiciwi'. rial n a w ui ±. C I ao iiav xug j. ^ u itcauci wiiaiijCu • 

Parameters: indx - is buffer to mark 

Procedure UseBuffer (indx ,numtimes : integer); 

Abstract: Mark a buffer as used. 

Parameters: indx - is buffer to mark 

numTimes - the number to incrememt use count by 

Function Buff erPointer (indx : integer) : ptrDiskBuf fer ; 
Abstract: return the buffer Ptr for a buffer. 
Parameters: indx - is buffer 
Returns: Ptr to buffer 

Function Header Pointer (indx : integer) : ptrHeader; 
Abstract: return the header Ptr for a buffer. 
Parameters: indx - is buffer 
Returns: ptr to header 
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module Reader 



Reader - Stream package input conversion routines. 

J. P. Strait ca. 1 Jan 81. 

Copyright (C) Three Rivers Computer Corporation, 1981. 

Abstract: 

Reader is the character input module of the Stream package. It 
is called by code generated by the Pascal compiler in response to 
Read or Readln. It is one level above Module Stream and uses 
Stream*s lower-level input routines. 

Version Number V2.1 
exports 



imports Stream from Stream; 



procedure ReadBoo.lean( var F: FileType; var X: boolean ); 
procedure ReadCh( var F: FileType; var X: char; Field: integer ); 
procedure ReadChArray( var F: FileType; var X: ChArray; Max, Len : integer 
procedure Read Identifier ( var F: FileType; var X: integer; 

var IT: IdentTable; L: integer ); 
procedure Readlnteger( var F: FileType; var X: integer ); 
procedure ReadStringC var F: FileType; var X: String; Max, Len: integer 
procedure ReadXC var F: FileType; var X: integer; B: integer ); 



- 184 - 



POS D.6 Interface module Reader 

05 Feb 82 

procedure ReadBoolean( var F: FileType; var X: boolean ); 
Abstract: Reads a boolean in free format. 



Parameters : 

X - the boolean to be read. 

F - the file from which X is read. 



Errors: PastEof if an attempt is made to read F past the Eof 
NotBoolean if a non-boolean is encountered in the file. 



procedure ReadCh( var F: FileType; var X: char; Field: integer ); 
Abstract: Reads a character in fixed or free format. 



Parameters : 

X - the character to be read. 

F - the file from which X is to be read 

Field - the size of the field X is in. 



Errors: PastEof if an attempt is made to read F past the Eof 



procedure ReadChArrayC var F: FileType; var X: ChArray; Max, Len : 
integer ) ; 

Abstract: Reads a packed character array in free or fixed format. 
If free format reading is selected, spaces are skipped and 
characters are read until another space is encountered. 

Parameters: 

X - the character array to be read. 
F - the file from which X is to be read. 
Max - the declared length of X. 

Len - the size of the field. Len <= selects free format 
reading. 

Errors: PastEof if an attempt is made to read F past the Eof. 
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procedure Read Identifier ( var F: FileType; var X: integer; var IT: 
IdentTable; L: integer ); 

Abstract: Reads an identifier and returns its position in a 
table. A table lookup is performed requiring only that the 
identifier typed uniquely matches the beginning of a single 
table entry. 

Parameters : 

X - set to the ordinal of the identifier read. 

F - the file from which X is read. - 

IT - the table of identifiers indexed from to L. 

L - the largest identifier ordinal defined by the table. 

Errors : 

BadldTable - if length of the identifier table is less than 

1 . 
PastEof - if an attempt is made to read F past the Eof. 
Notldentif ier - if a non-identifier is encountered in the 

file. 
IdNotDefined - if the identifier is not in the table. 
IdNotUnique - if the identifier is not unique. 



procedure Readlnteger( var F: FileType; var X: integer ); 
Abstract: Reads a decimal integer in free format. 



Parameters : 

X - the integer to be read . 

F - the file from which X is to be read. 



Errors : 

PastEof - if an attempt is made to read F past the Eof. 
NotNumber - if non-numeric input is encountered in the 

file. 
LargeNumber- if the number is not in the range 

-32768, .32767. 
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procedure ReadString( var F: FileType; var X: String; Max, Len : 
integer ) ; 

Abstract: Reads a string in free or fixed format. If free format 
is selected, spaces are skipped and characters are read 
until another space is encountered . 

Parameters : 

X - the string to be read. 

F - the file from which X is to be read. 

Max - the declared maximum length of the string. 

Len - the size of the field. Len <= selects free format. 



Errors : 

PastEof - if an attempt is made to read F past the Eof. 



procedure ReadX( var F: FileType; var X: integer; B: integer ); 

Abstract: Reads an integer in free format with base B. B may be 
any integer between 2 and 36, inclusive. 

Parameters : 

X - the integer to be read . 
F - the file from which X is to be read. 
Field - the size of the field X is in. 

B - the base of X. It may be any integer between 2 and 36, 
inclusive. 



Errors: 

PastEof - if an attempt is made to read F past the Eof. 
NotNumber- if non-numeric input is encountered in the 

file. 
LargeNumber- if the number is not in the .range 

-32768.. 32767. 
BadBase - if the base is not in 2.. 36. 
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RealFunctions - Standard functions for reals. 

J. Strait 27 Nov 81. 

Copyright (C) Three Rivers Computer Corporation, 1981. 

Abstract: 

RealFunctions implements many of the standard functions whose 

domain and/or range is the set of real numbers. The 

implementation of these functions was guided by the book 

Software Manual for the Elementary Functions, William J. Cody, 
Jr. and William Waite , (C) 1980 by Prentice-Hall, Inc. 

The domain (inputs) and range (outputs) of the functions are 
given in their abstract. The following notation is used. 
Parentheses () are used for open intervals (those that do not 
include the endpoints) , and brackets [] are used for closed 
intervals (those that do include their endpoints) . The closed 
interval [RealMLargest , RealPLargest] is used to mean all real 
numbers, and the closed interval [-32768, 32767J is used to mean 
all integer numbers. 

Currently all functions described by Cody and Waite are 
implemented with the exception of the hyperbolic functions (SinH, 
CosH, TanH) . 

DISCLAIMER: 

Only the most cursory testing of these functions has been done. 
No guarantees are made as to the accuracy or correctness of the 
functions. Validation of the functions must be done, but at some 
■ ■ later date. 

Design: AdX, IntXp, SetXp, and Reduce are implemented as Pascal 
functions. It is clear that replacing the calls with in-line 
code (perhaps through a macro expansion) would improve the 
efficiency. 

Many temporary variables are used. Elimination of unnecessary 
temporaries would also improve the efficiency. 

Many limit constants have been chosen conservatively, thus 
trading a small loss in range for a guarantee of correctness. 
The choice of these limits should be re-evaluated by someone with 
a better understanding of the issues. 

Some constants are expressed in decimal (thus losing the 
guarantee of precision). Others are expressed as Sign, Exponent, 
and Significand and are formed at execution time. Converting 
these two 32-bit constants which are Recast into real numbers 
would improve the correctness and efficiency. 

More thought needs to be given to the values which are returned 

after resuming from an exception. The values that are returned 
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now are the ones recommended by Cody and Waite. It seems that 
Indefinite values (NaNs in the IEEE terminology) might make more 
sense in some cases. 

Version Number V1.0 
exports 



const RealPInfinity = Recast( 

RealMInf inity = Recast( 

RealPIndefinite = Recast( 

RealMIndef inite = Recast( 

RealPLargest = Recast( 

RealMLargest = Recast( 

RealPSmallest = Recast( 

RealMSmallest = Recast( 



#17740000000, 
#37740000000, 
#00000000001 , 
#20000000001, 
#17737777777, 
#37737777777, 
#00040000000, 
#20040000000, 



Real) 




Real) 




Real); 




Real) 




Real) ; 




Real) 




Real); 




Real) 





1.0 / 0.0 } 

-1.0 / 0.0 } 
0.0 / 0.0 } 
-0.0 / 0.0 } 
largest positive } 
largest negative } 
smallest positive } 
smallest negative } 



function 
function 
function 
function 
function 

X Ullt^ UXUll 

function 
function 
function 
function 
function 
function 
function 
function 



Sqrt( X 
Exp( X: 
Ln( X: 
Log10( 
Power ( 
Power I ( 
Sin( X: 
Cos( X: 
Tan( X: 
CoTan( 
ArcSin( 
ArcCos( 
ArcTanC 



: Real ) : Real ; 

Real ): Real; 
Real ): Real; 
X: Real ): Real; 
X, Y: Real ): Real 



Real; 
Real; 
Real: 



X: Real 
Real ) : 
Real ) : 
Real ) : 
X: Real ): Real 
X: Real 
X: Real 
X: Real 



-ege 



m \ 



Real 



Real 
Real 
Real 



ArcTan2( Y, X: Real ): Real 



exception SqrtNegC X: Real ); 



Abstract : 



SqrtNeg is raised when Sqrt is passed a negative 
argument.. You may resume from this exception, in which 
case Sqrt returns Sqrt( Abs(X) ) . 



Parameters : 

X - Argument of Sqrt. 



exception ExpLarge( X: Real ); 
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Abstract : 

ExpLarge is raised when Exp is passed an argument which 
is too large. You may resume from this exception, in 
which case Exp returns RealPInfinity. 

Parameters: 

X - Argument of Exp. 



exception ExpSmalK X: Real ); 



Abstract : 

ExpLarge is raised when Exp is passed an argument which 
is too small. You may resume from this exception, in 
which case Exp returns 0.0. 



Parameters : 

X - Argument of Exp. 



exception LogSmalK X: Real ); 



Abstract 



LogSmall is raise when Ln or LoglO is passed an 
argument which is too small. You may resume from this 
exception in which case Ln or LoglO returns 
RealMInfinity if X is zero or the log of Abs(X) if X is 
non-zero . 



Parameters : 

X - Argument of Ln or LoglO. 



exception Power Zero( X, Y: Real ); 



Abstract 



PowerZero is raised when Power or Powerl is called with 
X = 0.0 and Y = 0.0. You may resume from this 
exception in which case Power or Powerl returns 
RealPInfinity. 
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Parameters: 

X - Argument of Power or Power I. Y - Argument of Power 
or Power I. 



exception PowerNeg( X, Y: Real ); 
Abstract: 



PowerNeg is raised when Power is called with X < 0.0 or 
with X = 0.0 and Y < 0.0, or Powerl is called with X = 
0.0 and Y < 0. You may resume from this exception in 
which case Power or Powerl returns Power ( Abs(X) , Y) in 
the case of X < 0.0 or returns RealPInfinity in the 
case of X = 0.0 and Y < 0.0. 



Parameters : 

X - Argument of Power or Powerl. Y - Argument of Power 
or Powerl. 



exception PowerBig( X, Y: Real ); 



Abstract 



PowerBig is raised when Power or Powerl is called with 
X and Y for which X raised to the Y power is too large 
to be represented. You may resume from this exception 
in which case Power or Powerl returns RealPInfinity. 



Parameters : 

X - Argument of Power or Powerl. Y - Argument of Power 
or Powerl. 



exception PowerSmalK X, Y: Real ); 



Abstract 



PowerSmall is raised when Power or Powerl is called 
with X and Y for which X raised to the Y is too close 
to zero to be represented. You may resume from this 
exception in which case Power or Powerl returns 0.0. 
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Parameters : 

X - Argument of Power or Power I. Y - Argument of Power 
or Power I . ' 



exception SinLarge( X: Real ); 
Abstract : 



SinLarge is raised when Sin is called with an argument 
which is too large. You may resume from this exception 
in which case Sin returns 0.0. 



Parameters : 

X - Argument of Sin. 



exception CosLarge( X: Real ); 



Abstract : 

CosLarge is raised when Cos is called with an argument 
which is too large. You may resume from this exception 
in which case Cos returns 0.0, 



Parameters : 

X - Argument of Cos. 



exception TanLarge( X: Real ); 
Abstract : 



CosLarge is raised when Tan or CoTan is called with an 
argument which is too large. You may resume from this 
exception in which case Tan or CoTan returns 0.0. 



Parameters : 

X - Argument of Tan or CoTan. 
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exception ArcSinLargeC X: Real ); 

Abstract: 

ArcSinLarge is raised when ArcSin is called with an 
argument which is too large. You may resume from this 
exception in which case ArcSin returns RealPInfinity . 

Parameters: 

X - Argument of ArcSin. 



exception ArcCosLarge( X: Real ); 



Abstract: 

ArcCosLarge is raised when ArcCos is called with an 
argument which is too large. You may resume from this 
exception in which case ArcCos returns RealPInfinity. 



Parameters : 

X - Argument of ArcCos. 



exception ArcTan2Zero( Y, X: Real ); 
Abstract: 



ArcTan2Zero is raised when ArcTan2 is called with both 
X and Y equal to zero. You may resume from this 
exception in which case ArcTan2 returns RealPInfinity. 



Parameters: 

Y - Argument of ArcTan2. X - Argument of ArcTan2. 
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function Sqrt( X: Real ): Real; 

Abstract: Compute the square-root of a number. 

Domain = [0.0, RealPLargest]. Range = [0.0, 

Sqrt( RealPLargest) ] . 

Parameters: 

X - Input value. 

Returns: 

Square-root of X. 



function Ln( X: Real ): Real; 



Abstract: Compute the natural log of a number. 

Domain = [0.0, RealPLargest]. Range = [ RealMLargest , 
Ln( RealPLargest) ] . 



Parameters : 

X - Input value. 



Returns: Natural log of X 



function Log10( X: Real ): Real; 

Abstract: Compute the log to the base 10 of a number. 

Domain = [0.0, RealPLargest]. Range = [RealMLargest, 
LoglO(RealPLargest) ] . 

Parameters: 

X - Input value. 

Returns: Log to the base 10 of X. 
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function Exp( X: Real ): Real; 

Abstract: Compute the exponential function. 

Domain = [-85.0, 87.0]. Range = (0.0, RealPLargest] . 

Parameters : 

X - Input value. 

Returns: e raised to the X power. 



function Power( X, Y: Real ): Real; 

Abstract: Compute the result of an arbitrary number raised to an 
arbitrary power. 

DomainX = [0.0, RealPLargest]. DomainY = 

rDaalMIoKnoef CaqlDIorgactl Rangp - ffjn R<a pi PT QTa Q S t 1 - 

With the restrictions that 1) if X is zero, Y must be 
greater than zero. 2) X raised to the Y is a representable 
real number . 



Parameters : 

X - Input value. 
Y - Input value. 



Returns: X raised to the Y power 



function PowerK X: Real; Y: Integer ): Real; 

Abstract: Compute the result of an arbitrary number raised to an 
arbitrary integer power. The difference between Power and 
Powerl is that negative values of X may be passed to Powerl. 

DomainX = [RealMLargest , RealPLargest], DomainY = [-32768, 
32767]. Range = [RealMLargest, RealPLargest]. 

With the restrictions that 1) if X is zero, Y must be 
non-zero. 2) X raised to the Y is a representable real 
number . 
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Parameters : 

X - Input value 
Y - Input value 



module KealFunctions 



Returns: X raised to the Y power 



function Sin( X: Real ): Real; 



Abstract: Compute the sin of a number. 

Domain = [-1E5, 1E5]. Range = [-1.0, 1.0]. 



Parameters : 

X - Input value. 



Returns : Sin of X. 



function Cos( X: Real ): Real; 



Abstract: Compute the cosin of a number. 

Domain = [-1E5, 1E5]. Range = [-1.0, 1.0] 



Parameters : 

X - Input value 



Returns: Cos of X. 



function Tan( X: Real ): Real; 



Abstract: Compute the tangent of a number. 

Domain = [-6433-0, 6433-0]. Range 
RealPInfinity] . 



[RealMInfinity, 



Parameters : 

X - Input value. 
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Returns: Tangent of X. 



module HealFunctions 



function CoTanC X: Real ): Real 



Abstract: Compute the cotangent of a number. 

Domain = [-6433-0, 6433-0]. Range 
RealPInfinity] . 



[RealMInfinity, 



Parameters : 

X - Input value. 



Returns: Cotangent of X. 

function ArcSin( X: Real ): Real; 

Abstract: Compute the arcsin of a number. 

Domain = [-1.0, 1.0). Range = [-Pi/2, Pi/2) 

Parameters : 

X - Input value. 

Returns: Arcsin of X. 



Design: It seems that the Domain and Range ought to be closed 
intervals, however this implementation apparently returns a 
number very close to zero when X is 1.0, rather than 
returning Pi/2 as it should. 



function ArcCos( X: Real ): Real; 

Abstract: Compute the arccosin of a number. 

Domain = (-1.0, 1.0]. Range = (-Pi/2, Pi/2] 



Parameters : 

X - Input value. 
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Returns: Arccosin of X. 



module RealFunctions 



Design: It seems that the Domain and Range ought to be closed 
intervals, however this implementation apparently returns a 
number very close to zero when X is -1.0, rather than 
returning -Pi/2 as it should. 



function ArcTan( X: Real ): Real; 



Abstract: Compute the arctangent of a number. 

Domain = [RealMLargest , RealPLargest] . Range 
Pi/2) . 



(-Pi/2, 



Parameters : 

X - InpLUt value. 



Returns: Arctangent of X. 



Design: Seems fine except for very large numbers. 



function ArcTan2( Y, X: Real ): Real; 



Abstract: Compute the arctangent of the quotient of two numbers. 
One interpretation is that the parameters represent the 
cartesian coordinate (X,Y) and ArcTan2(Y,X) is the angle 
formed by (X,Y), (0,0), and (1,0). 

DomainY = [RealMLargest, RealPLargest], DomainX = 
[RealMLargest, RealPLargest]. Range = [-Pi, Pi]. 



Parameters : 

Y - Input value. 
X - Input value. 



Returns: Arctangent of Y / X 



Design: Seems fine except for very large Y/X 
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module RS232Baud; 

Abstract: 

RS232Baud - set RS232 baud rate with optional input enable. J. 

P. Strait 21 Aug 80. Copyright (c) Three Rivers Computer 

Corporation 1980. 
Version Number V1.1 
exports 

procedure SetBaud(Baud : String; Enable: Boolean); 

Exception BadBaudRate; 

Abstract: Raised if string is not a valid baud rate 
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procedure SetBaud( Baud : String; Enable: Boolean); 

Abstract: Sets the baud rate to baud specified by string arg 
Arguments: Baud is string of new baud rate (e.g. "2400") 
Enable says whether to allow transfers on RS232 

SideEffects: Changes status of RS232 

Errors: Raises BadBaudRate if string is illegal 



- 200 - 



POS D.6 Interface module RunRead 

05 Feb 82 

module RunRead; 

RunRead - Module to read run files. 

John P Strait 9 Apr 81 . 

CopyRight (C) Three Rivers Computer Corporation, 1981. 

Abstract: 

RunRead exports procedures to read and write run files. 

Design: If and when the format of run files is changed, the 
constant RFileFormat in module Code must be changed. This is 
necessary so that the procedures to read run files will not fail. 

Version Number V1.1 
exports 

const RunReadVersion = » 1.1»; 

imports Code from Code; 



procedure ReadRunFileC var RunFile: RunFileType; Seg : Integer; 

var Header: Runlnfo; 

var FirstSeg, FirstUserSeg , LastSeg: pSegNode; 
ImportsWanted : Boolean ); 

procedure ReadSegNames( var RunFile: RunFileType; Seg: Integer; 

FirstUserSeg: p Seg Node ); 
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procedure ReadRunFileC var RunFile: RunFileType; Seg: Integer; var 
Header: Runlnfo; var FirstSeg, Fir stUser Seg , LastSeg: pSegNode; 
ImportsWanted : Boolean ) ; 

Abstract: ReadRunFile reads a run file and builds a structure 
that represents that run file. The run file is read up to, 
but not including, the names of the .Seg files. 

Parameters: 

RunFile - A file variable which has been Reset to the 

desired file. ReadRunFile does *not* close the file. 
Seg - Segment number for dynamic allocation. , 
Header - The Runlnfo record. 
FirstSeg - Set to point to the first segment in the run 

file. 
FirstUserSeg - Set to point to the first user segment in the 

run file. 
LastSeg - Set to point to the last segment in the run file. 
ImportsWanted - True iff Import entries are to be read from 

the run file. 



procedure Read SegNames( var RunFile: RunFileType; Seg: Integer; 
FirstUserSeg: pSegNode ); 

Abstract: Pie ad Seg Names reads .Seg file names from a run file and 
adds them to a structure that represents that run file. 

Parameters: 

RunFile - A file variable which has been Reset to the 

desired file and already read with ReadRunFile. 

ReadSegNames does *not* close the file. 
Seg - Segment number for dynamic allocation. 
FirstUserSeg - A pointer to the first user segment in the 

run file. 
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module RunWrite; 

RunWrite - Module to write run files. 

John P Strait 9 Apr 81. 

CopyRight (C) Three Rivers Computer Corporation, 1981. 

Abstract : 

RunWrite exports procedures to write run files. 

Design: If and when the format of run files is changed, the 
constant RFileFormat in module Code must be changed. This is 
necessary so that the procedures to read run files will not crap 
out . 

Version Number V1.1 
exports 

const RunWriteVersion = '1.1*; 

imports Code from Code; 



procedure WriteRunFile( var RunFile: RunFileType; Header: Runlnfo; 

FirstSeg, FirstUserSeg : pSegNode ); 
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module RunWrite 



procedure WriteRunFile( var RunFile: RunFileType ; Header: Runlnfo; 
FirstSeg, FirstUser Seg : pSegNode ); 

Abstract: ReadRunFile writes a run file from a structure that 
represents that run file. 

Parameters : 

RunFile - A file variable which has been Rewritten to the 

desired file. WriteRunFile does *not* close the file. 
Header - The Runlnfo record. 

FirstSeg - A pointer to the first segment in the run file. 
FirstUserSeg - A pointer to the first user segment in the 

run file. 
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Module Screen; 

Written By: Miles A. Barel July 1, 1980 
Three Rivers Computer Corporation 
Pittsburgh, PA 15213 

Abstract: Provides the interface to the PERQ screen including 
rudimentary support for multiple windows 

Exports 

Imports Raster from Raster; 
Version Number V3.12 
Const ScreenVersion = f V3.12 f ; 
VarWin = false; 

{if true then can have an arbitrary number of windows 
and storage for them has to be allocated off a heap. 
If false then there are 17 windows max, and 
storage is in screens global data. 
NOTE: There are still bugs in VarWin true} 
Type FontPtr = "Font; 

Font = Packed Record { Contains character sets } 
Height :integer; { Height of the KSet } 
Base: integer; 

{ distance from top of characters to base-line } 
Index: Array [0..#177l of { Index into character patterns } 
Packed Record case boolean of 
true: (Offset: 0..767; 

{ position of character in patterns 

Line: 0. .63; 

{ Line of patterns containing char } 
Width: integer); { Width of. the character } 
false :(Loc :integer ; Widd : integer) 
end ; 
Filler: array[0..1] of integer; 

Pat: Array [0..0] of integer; { patterns go here } 

{ We turn off range checking to } 
{ access patterns, hence allowing } 
{ KSets of different sizes } 
end; 
{$ifc VarWin then} 

WindowP = "WindowType; 
{$endc} 

WindowType = Packed Record 
{$ifc VarWin then} 



{$endc} 



{$ifc VarWin then} 

{$endc} 

(Sifc VarWin then} 



winNumber: Integer; {this window number} 

winBY, winTY, winLX, winRX, { Limits of window area } 

winHX, winHY, winMX, winMY, { Limits of useable area } 

winCurX, winCurY, winFunc : integer; 

winKSet: FontPtr; 

winCrsChr: char; 

winHasTitle, winCursorOn, defined: boolean; 

win Next: WindowP; 

end ; 
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Module Screen 



Const MaxWIndx - 
{$elsec} 



Const 
{$endc} 

Type 



MaxWIndx = 



32767; 
17; 



0. .MaxWIndx ; 
( Draw Line , Erase Line ,XorLine) ; 



{ CALL THIS ONCE AT BOOT } 



Win Range = 
LineStyle 
LS = String[255l; 
Procedure Screenlnit; 
Procedure ScreenReset; 

{ This procedure de-allocates storage for 
all windows and sets up the default window. } 

put character CH out to current position } 
on the screen-* Chars FF, CR, and LF } 
have special meanings unless #200 bit set: 
FF - clear screen 



Procedure SPutChr ( CH:char ) ; 



Procedure 
Procedure 
Procedure 
Procedure 
Procedure 



SSetCursor(X,Y: 
SRead Cursor ( var 
SCurOn; 
SCurOff ; 
SCurChr(C: char); 



integer) ; 

X, Y: integer) ; { 
{ 
{ 



CR - move left to margine 
LF - move vertically down one 
BS - erase previous character 
{ Set Cursor Position to X,Y 
Read Cursor Position } 
Enable display of Cursor } 
Disable display of Cursor } 
Set cursor character } 



Procedure SChrFunc(F: integer); { Set raster-op function for SPutChr } 
Procedure SSetSize( Lines : integer; complemented, screenOff: Boolean); 

{ Set Screen Size; lines must be a 
multiple of 128; screenOff if true 
turns off display in part below lines 
in which case, complemented 
describes off part of screen } 
WinRange ; 

integer; Title: string); 



Procedure 
Procedure 



CrgY, Width, Height 
: WinRange) ; 
WIndx : WinRange ; 



CreateWindow( WIndx 
OrgX, 

Change Window( WIndx 
Procedure GetWindowParmsC var 

var OrgX, CrgY, Width, Height: integer; var hasTitle: Boolean); 
Procedure ChangeTitle( Title : string); 
Procedure SetFont( NewFont : FontPtr); 
Function GetFont: FontPtr; 
Procedure SClear Char ( c : Char; funct: 



Procedure Line(Style: LineStyle; XI, 
Procedure SBackSpace( c : Char); 

Procedure RefreshWindow(WIndx : 



Integer); {delete prev char} 
{ c BETTER NOT be CR or LF} 
, .. . , Y1, X2, Y2: integer; Origin: RasterPt 
{move back over last char of curLine} 

{ c BETTER NOT be CR or LF} 
WinRange); {redraws window outline and titl 

area. DOES NOT REDRAW TITLE} 
to SSetSize bad} 

lines parameter to SSetSize is not a 



]xception WBadSize; {parameter 
Abstract: Raised if the 
multiple of 

128 or is <=0. Also raised if a window is totally 
below area to release so will disappear then if window 
# or is the current window, then Raises WBadSize. 
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Exception BadWNum; {indx is invalid} 

Abstract: Raised if a window number parameter is illegal (not 
defined or out 
of range. 

Exception WTooBig; 

Abstract: Raised if parameters for new window specify an area 
that would 

extend off screen. 

Procedure StartLine; 

Procedure ToggleCursor ; 

Procedure NewLine; 

Procedure SaveLineEnd (x : Integer); 

Procedure SFullWindow; 

Const SScreenW = 48; {for use when want Screen in Raster Op or Line} 

Var SScreenP: Raster Ptr; {for use when want Screen in RasterOp or Line} 

SCursorOn: boolean; 

SFunc : integer; { Raster-op function for SPutChr } 

{$ifc VarWin then} 

FirstWindp, { first window* s pointer; better not be NIL } 

CurWindp: WindowP; { current window's pointer } 
{$elsec} 

CurWind: WinRange; 

WinTable: Array[ WinRange] of WindowType; 
{$endc} 

Exception CursOutSide; 

Abstract: Raised if try to set the cursor outside of the current 
window. 

Resume: Allowed. If resume, then cursor is NOT moved (same 
effect as if 

signal is caught but not resumed). 
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Procedure StartLine; 

Abstract: Resets Curline and variables describing the current 
line start. 

Procedure ToggleCursor ; 

Abstract: Inverts Cursor picture. 

SideEffects: Changes the picture on the screen; 

Procedure SSetCursor (x ,y : integer); 

Abstract: Moves the cursor to the specified screen position. 

Parameters: x and y are Screen position where the next char will 
go. Note that y specified the BOTTOM of the character. 

SideEffects: Changes the cur char positions AND sets line to be 
empty (so BS won't work); 

Errors: Raises CursOutside if try to set the cursor outside the 
current window 

Procedure SReadCursor ( var x ,y :integer ) ; 

Abstract: Returns the current screen coords for chars. 

Parameters: x and y are set to the Screen position where the next 
char will go 

Procedure SCurOn; 

Abstract: Turns the char cursor on. 
SideEffects: Changes SCursorOn global vble 

Procedure SCurOff; 

Abstract: Turns the char cursor off. 
SideEffects: Changes SCursorOn global vble 
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Procedure SCurChr(C: char); 

Abstract: Set the character to be used as the cursor. 

SideEffects: Changes the cursor character 

Procedure SChrFunc(F: integer); 

Abstract: Set the function to be used for drawing chars to the 
screen . 

SideEffects: Changes the char function 

Procedure SSetSize(Lines : integer; complemented, screenOff: Boolean); 

Abstract: Change the size of the screen so rest of memory can be 
used for other things (if smaller) 

Parameters: Lines is the number of lines in the displayed part of 
the screen. It must be a multiple of 128 and > 0. 
Complemented describes the off part of the screen and 
screenOfx determines whether it is dispiayeo v i slsc; or now; 
if displayed then complemented determines whether it is 
erased white or black. 

Errors: if lines a bad value then Raises WBadSize. If a window 
is totally below area to release and will disappear then if 
window # or is the current window^ then Raises WBadSize. 

SideEffects: Changes the values describing windows. If a window 
is totally below area to release and will disappear then if 
not window # or is the current windo.w, then makes the 
window undefined. 

Procedure NewLine; 

Abstract: Moves the cursor to the next line scrolling if 
necessary; DOES NOT do a CR - 

SideEffects: Changes the cursor position and may scroll 

Procedure SaveLineEnd(x : Integer); 

Abstract: Saves x as the end of a line 

Parameters: x is the xPos of the end of a line 

SideEffects: puts x at the end of LineEnds table; increments 
lastLineEnd; if table is full then scrolls table 
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Procedure SBackSpace( c : Char); 

Abstract: Move the cursor back over c; c BETTER NOT be CR or LF 

Parameters: c is the character to backspace over. 

SideEffects: Moves the cursor back the width of char c; (DOES NOT 
ERASE CHAR) 

Procedure SClear Char (c : char; funct: Integer); 

Abstract: Deletes the c from screen; c BETTER NOT be CR or LF 

Parameters: c is char to be erased; funct is RasterOp function to 
use in deleting char. It should be RXor if chars are black 
on white and RXNor if chars are white on black. 

SideEffects: erases the last char of line; 

Procedure SPutChr(CH: Char); 

Abstract: Write a char into the current window 

Parameters: Ch is char to write. If #200 bit is not set, checks 
to see if char is one of Bell, BS, FF, LF, CR and does 
something special. 

SideEffects: Writes char to screen, moves cursor; may do a 
NewLine (and scroll) if at end of Line 

Procedure ChangeTitle(Title : string); 

Abstract: Changes the title of the current window (and displays 
new one) . 

Parameters: Title is new string. Characters in it are quoted so 
special characters will be displayed. 

SideEffects: Changes title on screen 

Procedure CreateWindow(WIndx : WinRange; OrgX, OrgY, Width , Height : 
integer; Title :string) ; 

Abstract: Creates new window for Windx (or overwrites old values 
for that window) and makes it the current window. Writes 
title (IN CURRENT FONT) if title <> "; 

Parameters: Windx is index to use for the window created; OrgX 
and OrgY are the upper left corner of the outside of the new 
window (chars will be at least 5 bits in from that). Width 
and Height are total outside values for window (NOT the 
width and height of the character area) . Title is title 
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for window. If not f f then hairlines and a black area are 
put around window. 

SideEffects: Writes current values into current window; creates a 
new window and erases its area on screen 

Errors: Raises BadWNum if WIndx invalid Raises WTooBig if window 
would extend off the screen 



Procedure SFullWindow; 

Abstract: Changes the parameters of the current window to be the 
full screen 

SideEffects: Changes the size of the current window. Does NOT 
refresh or change the title line or erase anything or move 
the cursor 

Procedure RefreshWindow(WIndx : WinRange) ; 

Abstract: Redraws window outline and title area (but not title 

tpvt > » 
w v« a v / 

Parameters: Window to refresh (better be already created) 
Errors: Raises BadWNum if WIndx undefined 

Procedure GetWindowParmsCvar WIndx: WinRange; var OrgX, OrgY, Width, 
Height: integer; var hasTitle: Boolean); 

Abstract: Returns parameters for current window 

Parameters: All set to current window*s values 

Procedure ChangeWindow(WIndx : WinRange); 

Abstract: Writes out current window's parameters and changes to 
new one 

Parameters: WindX is new window's number 

Errors: Raises BadWNum if WIndx undefined 
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Procedure SetFont( NewFont : FontPtr); 

Abstract: Changes font to be NewFont 

Parameters: NewFont is font to use 

SideEffects: Changes font in current window so all further writes 
(including titles) will be in this font 

Function GetFont: FontPtr; 

Abstract: Returns current font 
Returns: font currently in use 

Procedure ScreenReset; 

Abstract: Erases screen; Removes all window; sets Window to 
have full screen boundary and a blank title 

SideEffects: Erases or sets all parameters; font set to system 
font 

Procedure Screenlnit; 

Abstract: Sets FirstWindP to NIL and sets up default window; 
NOTE: CALL THIS PROCEDURE ONCE AT SYSTEM INITIALIZE 

Calls: ScreenReset; 

Procedure Line(Style: LineStyle; XI, Y1, X2, Y2: integer; Origin: 
Raster Ptr ) ; 

Abstract: Draws aline. 

Parameters: Style is function for the line; X1 , X2, Y1 , Y2 are 
end points of line, Origin is pointer to the memory to draw 
lines in. Use SScreenP for Origin to draw lines on the 
screen . 
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Module Scrounge; 

Abstract: This module contains the procedure Scrounge which allows a 

small 

amount of debugging. Since there are no symbol tables or micro — 
code support for breakpoints, you can look at the stack trace and 
examine vbles by offsets. The types of the variables have to be 
specified by the user. Written by: Brad A. Myers i«May-1981 
Copyright (C) 1981 Three Rivers Computer Corporation. 

Version Number V0.14 

{////////////////////////} EXPORTS {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\} 

Procedure Scrounge(ES, ER, PStart, PEnd, ExcSeg, RaiseAP: Integer); 
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Procedure Scrounge(ES, ER, PStart, PEnd , ExcSeg, RaiseAP: Integer); 

Abstract: Scrounge is called when uncaught signals are noticed or 
when the user types "SHIFT-D. It allows looking around at 
local and global vbles and the stack trace. If "SHIFT-D 
then can continue with program, otherwise aborts when exit 

Parameters: ES - segment number of exception 
ER - routine number of exception 

PStart - offset of start of parameters to exception 
PEnd - offset of end of parameters to exception 
ExcSeg - the segment number of the exceptions module if (ES 

r ExcSeg) and ( ER = ErrDump) then is "SHIFT-D For now, 

can't tell "SHIFT-C 
RaiseAP - the offset for " AP for Raise itself (caller is 

person who did the raise) 
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module Stream 



;ream - Perq Pascal stream package. 

>hn Strait ca. Jan 80. 

>pyright (C) Three Rivers Computer Corporation, 1980. 

>stract : 

This module implements the low-level Pascal I/O. It is not 
intended for use directly by user programs, but rather the 
compiler generates calls to these routines when a Reset, Rewrite, 
Get, or Put is encountered. Higher-level character I/O functions 
(Read and Write) are implemented by the two modules Reader and 
Writer . 



In this module, the term "file- buffer variable" refers to 
a file variable F. 

irsion Number V1 .20 
ports 



for 



sports FileDefs from FileDefs; 

t StreamVersion = f 1.20 ! ; 

IdentLength = 8; { significant characters in an identifier } 



pe pStreamBuffer = "StreamBuf fer ; 

StreamBuffer = record case integer of { 





1 
2 

3 
4 

5 
6 
7 
8 
9 
end; 



(W: array[0. .2551 of integer); 



(B1 
(B2 

(B3 
(B4 

(B5 
(B6 
(B7 
(B8 



packed array[0..0] of 0..1); 

packed array[0..0] of 0..3); 

packed array[0..0] of 0..7); 

packed array[0..0] of 0..15) 

packed array[0..0] of 0.-31) 

packed array[0..0] of 0..63) 

packed array[0.:0] of 0..127); 

packed array[0..0] of 0..255); 



(C: packed array[0. .255] of char); 



element size: } 




{ 1 or more words, or > 8 bits 


} 


{ 1 bit } 




{ 2 bits } 




{ 3 bits } 




{ 4 bits } 




{ 5 bits } 




{ 6 bits } 




{ 7'bits } 




{ 8 bits } 




{ for character structured } 





Control Char = 0..#37; 



{ ordinal of an ASCII control 
character } 



FileKind = ( BlockStructured , CharacterStructured) ; 

FileType = { file of Thing } 
packed record 
Flag; packed record ease integer of 
0: (Char Ready : boolean; { character is in file window } 
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FEoln 

FEof 

FNotReset 

FNotOpen 
FNotRewrite 

FExternal 

FBusy 

FKind 

1: (skipl 

ReadError 

2: (skip2 

Wr iteError 

end ; 

EolCh, EofCh, Er 

OmitCh : 

FileNum : 

Index : 



boolean ; 
boolean ; 
boolean ; 

boolean ; 
boolean ; 

: boolean; 

: boolean; 
: FileKind); 

o . . 3 ; 
0..7); 
0..15; 
0..3) 

aseCh, NoiseCh 
set of Control 
integer ; 
integer ; 



module Stream 



{ end of line flag } 

{ end of file } 

{ false if a Reset has been 

performed on this file } 
{ false if file is- open } 
{ set false if a Rewrite has been 

performed on this file } 
{ not used - will be permanent/temj 

file flag } 
{ 10 is in progress } 



Length 



integer ; 



BlockNumber : 
Buffer : 
LengthlnBlocks : 
LastBlockLength : 
SizelnWords : 

Si zelnBits 



integer ; 
pStreamBuf fer ; 
integer ; 
integer ; 
integer ; 

0. .16; 



0..16; 
} record case 



ElsPerWord 
Element: { Thing 

1 : ( C : char) ; 

2: (W: array[0..0] of integer) 

end 
end ; 



: Contro 
Char; 
{ POS fi 
{ curren 
files , 
files 
{ length 
packed 
files 
{ next 1 
{ I/O bu 
{ file 1 
{ last b 
{ elemen 
packed 
{ elemen 
files 
{ el erne 
integer 



IChar; {self explanatory} 

le number } 

t word in buffer for un-packed 
current element for. packed 

} 
of buffer in words for un- 
files, in elements for packed 

} 

ogical block number } 

ffer } 

ength in blocks } 

lock length in bits } 

t size in words, means 

file } 
t size in bits for packed 

} 

nts per word for packed files } 
of {The File window} 



ChArray = packed array[1..1] of char; {For read/write character array} 



Identifier = string[ IdentLength] ; 
IdentTable = array[0..1] of Identifier; 



var 



StreamSegment : integer; L ^ «*,»,< ~~ 

KeyBuffer: packed array[ 0. .255] of char; 
KeyNext, KeyLength: integer; 



{ Segment buffer for I/O buffers } 
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procedure Streamlnit( var F: FileType; WordSize, BitSize: integer; 

CharFile: boolean ); 
procedure StreamOpen( var F: FileType; var Name: PathName; 

WordSize, BitSize: integer; CharFile: boolean; 

OpenWrite: boolean ); 
procedure StreamClose( var F: FileType ); 
procedure GetB( var F: Filetype ); 
procedure PutB( var F: Filetype ); 
procedure GetC( var F: Filetype ); 
procedure PutC( var F: FileType ); 
procedure PReadln( var F: Filetype ); 
procedure PWriteln( var F: Filetype ); 
procedure InitStream; 

function StreamName( var F: FileType ): PathName; 
function FullLn( var F: Text ): Boolean; 
procedure StreamKeyBoardReset( var F: Text ); 

exception ResetError( FileName: PathName ); 

Abstract: 

Raised when unable to reset a file — usually file not 

found but also could be ill-formatted name or bad 
device name. 



Parameters : 

FileName - name of the file or device. 



exception RewriteErrorC FileName: PathName ); 



Abstract: 

Raised when unable to rewrite a file — usually file 

unknown device or partition but also could be 

ill-formatted name or bad device name. 



Parameters : 

FileName - name of the file or device. 



exception NotTextFile( FileName: PathName ); 



Abstract : 

Raised when an attempt is made to open a non-text file 
to a character-structured device. 
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Parameters : 

FileName - name of the device. 



exception NotOpen; 

Abstract: 

Raised when an attempt is made to use a file which is 
not open . 



exception NotReset( FileName: PathName ); 



Abstract: 

Raised when an attempt is made to read a file which is 
open but has not been reset. 



Parameters: 

FileName - name of the file or device. 



exception NotRewriteC FileName: PathName ); 



Abstract : 

Raised when an attempt is made to write a file which is 
open but has not been rewritten. 



Parameters: 

FileName - name of the file or device. 



exception PastEof( FileName: PathName ); 

Abstract : 

Raised when an attempt is made to read past the end of 
the file. 



Parameters: 

FileName - name of the file or device. 



exception UnitIOError( FileName: PathName ); 



- 218 - 



POS D.6 Interface module Stream 

05 Feb 82 

Abstract: 

Raised when IOCRead or lOCWrite returns an error 
status. 



Parameters : 

FileName - name of the device. 



exception TimeOutError( FileName: PathName ); 

Abstract: 

Raised when a device times out 



Parameters: 

FileName - name of the device. 



exception Undf Device ; 



Abstract : 

Raised when an attempt is made to reference a file 
which is open to a character-structured device, but the 
device number is bad. In the current system (lacking 
automatic initialization of file variables) , this may 
be caused by referencing a file which has never been 
opened . 



exception Notldentifier ( FileName: PathName ); 

Abstract : 

Raised when an identifier is expected on a file, but 
something else is encountered. 

Parameters: 

FileName - name of the file or device. 

exception NotBoolean( FileName: PathName ); 

Abstract : 

Raised when a boolean is expected on a file, but 
something else is encountered. 
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Parameters : 

FileName - name of the file or device. 



exception BadIdTable( FileName: PathName ); 



Abstract: 

Raised by Readldentif ier when the identifier table is 
bad . 



Parameters: 

FileName - name of the file or device. 



exception IdNotUniqueC FileName: PathName; Id: Identifier ); 



Abstract : 

Raised when non-unique identifier is read. 



Parameters: 

FileName - name of the file or device. Id - the 
identifier which was read. 



exception IdNotDef ined ( FileName: PathName; Id: Identifier ); 



Abstract : 

Raised when an undefined identifier is read. 



Parameters: 

FileName - name of the file or device. Id - the 
identifier which was read. 



exception NotNumber( FileName: PathName ); 

Abstract : 

Raised when a number is expected on a file, but 
something else is encountered. 
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Parameters : 

FileName - name of the file or device. 



exception LargeNumberC FileName: PathName ); 

Abstract: 

Raised when a number is read from a file, but it is too 
large . 

Parameters : 

FileName - name of the file or device. 



exception SmallReaK FileName: PathName ); 



Abstract: 

Raised when a real number is read from a file, but it 
is too small * 



Parameters : 

FileName - name of the file or device. 



exception BadBase( FileName: PathName; Base: Integer ); 

Abstract: 

Raised when an attempt is made to read a number with a 
numeric base that is not in the range 2.. 36. 

Parameters : 

FileName - name of the file or device. Base - numeric 
base (which is not in the range 2.. 36). 

exception LargeReaK FileName: PathName ); 

Abstract: 

Raised when a real number is read from a file, but it 
is too . large . 
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Parameters: 

FileName - name of the file or device. 



exception RealWriteError ( FileName: PathName ); 



Abstract: 

Raised when an attempt is made to write a real number 
which is invalid. 



Parameters : 

FileName - name of the file or device. 



exception NotReaK FileName: PathName ); 



Abstract: 

Raised when a real number is expected on a file, but 
something else is encountered. 



Parameters : 

FileName - name of the file or device. 
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procedure Streamlnit( var F: FileType; WordSize, BitSize: integer; 
CharFile: boolean ); 

Abstract: Initializes, but does not open, the file variable F. 
Automatically called upon entry to the block in which the 
file is declared. (To be written when the compiler 
generates calls to it.) 

Parameters : 

F - the file variable to be initialized. WordSize and 

BitSize are the size of an element of the file. 
CharFile - determines whether or not the file is of 
characters . 



procedure StreamCloseC var F: FileType ); 
Abstract: Closes the file variable F 



Parameters : 

F - the file variable to be closed 



procedure StreamOpen( var F: FileType; var Name: PathName; WordSize, 
BitSize: integer; CharFile: boolean; OpenWrite: boolean ); 

Abstract: Opens the file variable F. This procedure corresponds 
to both Reset and Rewrite. 



Parameters : 

F - the file variable to be opened. 

Name - the file name. 

WordSize - number of words in an element of the file (0 

indicates a packed file) . 
BitSize - number of bits in an element of the file (for 

packed files). 
CharFile - true if the file is a character file. 
OpenWrite - true if the file is to be opened for writing 

(otherwise it is opened for reading). 

Errors: ResetError if unable to reset the file. RewriteError 

if unable to rewrite the file. NotATextFile if an attempt 

is made to open a non-text file to a character structured 
device. 
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procedure GetB( var F: Filetype ); 



module Stream 



Abstract: Advances to the next element of a block-structured file 
and gets it into the file buffer variable. 



Parameters : 

F - the file to be advanced. 



Errors: NotOpen if F is not open. NotReset if F has not been 
reset. PastEof if an attempt is made to read F past Eof. 



procedure GetC( var F: Filetype ); 



Abstract: Advances to the next element of a character-structured 
file and gets it into the file buffer variable. 



Parameters : 

F - the file to be advanced. 



Errors : 

NotOpen - if F is not open. 

NotReset - if F has not been reset, 

PastEof - if an attempt is made to read F past Eof. 

TimeOutError - if RS: or RSX: times out. 

UnitlOError - if IOCRead doesn't return I0EI0C or I0EI0B 

UndfDevice - if F is open, but the device number is bad. 



procedure PutB( var F: Filetype ); 



Abstract: Writes the value of the file buffer variable to the 
block-structured file and advances the file. 



Parameters : 

F - the file to be advanced. 



Errors : 

NotOpen - if F is not open. 

NotRewrite- if F has not been rewritten. 
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procedure PutC( var F: FileType ); 

Abstract: Writes the value of the file buffer variable to the 
character- structured file and advances the file. 



Parameters : 

F - the file to be advanced. 



Errors: 

NotOpen - if F is not open. 

NotRewrite - if F has not been rewritten. 

UnitlOError- if IOCWrite doesn't return IOEIOC or IOEIOB 

TimeOutError- if RS: or RSX: times out. 

UndfDevice - if F is open, but the device number is bad. 



procedure PReadln( var F: Filetype ); 

fih-^t" -^ ^G ■*" - Advartnos t.Q f.he first". r» Viarap fc «=>r fr>1 1 nui rta an 

end-of-line . 



Parameters : 

F - the file to be advanced. 



procedure PWritelnC var F: Filetype ); 
Abstract: Writes an end-of-line. 



Parameters : 

F - the file to which an end-of-line is written 



procedure StreamKeyBoardReset( var F: Text ); 

Abstract: Clears the keyboard input buffer and the file variable 
F so that all input typed up to this point will be ignored. 

Parameters: 

F - file to be cleared. 
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procedure InitStream; 

Abstract: Initializes the stream package. Called by System. 

function FullLn( var F: Text ): Boolean; 

Abstract: Determines if there is a full line in the keyboard 
input buffer. This is the case if a carriage-return has 
been typed. This function is provided in order that a 
program may continue to do other things while waiting for 
keyboard input. If the file is not open to the console, 
FullLn is always true. 

Parameters: 

F - file to be checked. 

Returns: True if a full line has been typed. 

Errors : 

NotOpen - if F is not open. 
NotReset - if F has not been reset. 

function StreamName( var F: FileType ): PathName; 

Abstract: Returns the file name associated with the file variable 
F. For 
block-structured files, the full path name including device 

and partition is returned. For character-structured 

files, the device name is returned. 

Parameters: 

F - file variable whose name is to be returned. 
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-"•ram System; 



Program System 



5rq Software Group. 

jpyright (C) Three Rivers Computer Corporation, 1980, 1981. . 

sstract : 

Initialize POS and go into loop alternately running Shell and 

user program 
;rsion Number V2.2 
************#**#*##*} Exports {********************} 

)nst MainVersion = 'D 1 ; 

DebugSystemlnit = False; 
FirstDDS = 199; 
ShellConst = 'Shell. 1 ; 
LogConst = 'Login.'; 
PFileConst r 'Default . Profile 1 ; 

SysTiming = True; { Gather System timing statistics. If this constant 

is changed, 10, Loader, Memory, Movemem, System, 
and Shell should be re-compiled, and the System 
should be re-linked. } 



'ne Sys9s = String[10]; 



ir UsrCmdLine: String[255l; 
UseCmd : Boolean ; 
InCmdFile: Boolean; 
LastFileName , 
RFileName , . 
ShellName: String; 

CurUserlD, 
CurGroupID: 0..255; 
CurUserName , 
CurPFile: String; 
UserMode: Boolean; 

CtrlCPending : Boolean; 

NextSSize: Integer; 
NextSComplemented : Boolean; 
NextSOff: Boolean; 
Def CursFunct : Integer; 
DefScrComp: Boolean; 
DefScrOff: Boolean; 

ShellCtrl: pointer; 
TimeFID: integer; 
CmdSegment: Integer; 



Command line entered by user} 

Set True to tell shell to execute UsrCmdLine} 

True if shell commands from file} 

Name of file to use if none given} 

Name of next program to run} 

Name of Shell} 

Index of user in System .Users} 
Groupid of current user} 
Login name of current user} 
Name of current profile file} 
True while executing user program} 

True if one control-C typed} 

Screen size for next program} 
Whether to complement bottom for next pgm} 
Whether bottom should display data bits} 
What to set curs func to after each prog} 
Default value for NextSComplemented} 
Default value for NextSOff} 

Pointer to information record for Shell} 
File ID of file holding current time} 
SegmentNumber of seg holding command files} 



SysDisk: Integer; 
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{Number of the disk booted from} 
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SysBootChar: Integer; 



Program System 



{Ord(char held down to boot)} 



StrVersion: string; {System version number as a string} 
SystemVersion : Integer; {Integer giving system version number} 
Systemlnitialized : Boolean; {True after system initialized} 
DDS: Integer; {Keeps current diagnostic display value} 

ShouldReEnableSwapping : Boolean; {True if swapping must be reenabled} 
SavedSwapId: Integer; {Save id of where to swap to} 



{$ifc SysTiming then} 
LoadTime, OldLoadTime: long 
ExecuteTime, OldExecuteTime 
SwapTime, OldSwapTime: long 
MoveTime, OldMoveTime: long 
IOTime, OldlOTime: long; 
PrintStatistics : Boolean; 
{$endc} 



long; 



UserPtr : pointer ; 

User Int : integer ; 

Demolnt: Integer; 

isFloppy: Boolean; 
point Allowed : Boolean; 



{A pointer variable for use between user 

programs. (Use IncRef Count to keep segment)} 
{May be a segment number for UserPtr} 

{reserved for Demo system} 

{true if booted from floppy, else false} 
{true if should use pointing device} 



{*** WARNING!! IF YOU CHANGE THE EXPORTED PROCEDURES AND EXCEPTIONS, MAKE 
{*** SURE THE NUMBERS FOR THE FOLLOWING EXCEPTIONS ARE UPDATED 

{*** AND RECOMPILE SCROUNGE IF CHANGED !!!!! *****} 

{*** WARNING!! DO NOT CHANGE THE ORDER OF THE ~C EXCEPTIONS !!!!! *****} 

Procedure Command; 

Procedure SetDDS( Display: Integer ); 

Procedure SysVers( n: integer; var S: string ); 

Const ErrCtlC = i\; {******} 
Exception CtlC; 



Abstract : 



CtlC is raised by the KeyBoard interrupt routine when a 
control-c is typed. If you handle this exception you 
should clear CtrlCPending in your handler. If you are 
catching control-c 1 s to try to prevent aborts, you 
should enable CtlCAbort also, since the Streairi package 
will raise it when the control-c is read. 



Const ErrCtlCAbort = 5; {******} 
Exception CtlCAbort; 
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Abstract 



CtlCAbort is raised by the KeyBoard interrupt routine 
when the second of two adjacent control-c's is typed. 
It is also raised by the Stream package when a 
control-c is read. If you handle this exception you 
should clear CtrlCPending in your handler. 

When this is raised by the KeyBoard interrupt routine, 
the KeyBoard type-ahead buffer is cleared. If you want 
to prevent this, you must catch CtlC also. 

If your program uses a Text file and you want to clear 
the line editing buffer for that file, you should call 
the Stream routine StreamKeyBoardReset(F) (assuming F 
is the name of the file) . If F is a Text file which is 
attached to the console, this will get rid of the 
character F~ points to and clear Stream 1 s line editing 
buffer . 



Const ErrCtlShftC = 6; {******} 

Exception CtlShftC; 



Abstract : 



CtlShftC is raised by the KeyBoard interrupt routine 
when a control- shift-c is typed. If you handle this 
exception you should clear CtrlCPending in your 
handler. 

When this is raised by the KeyBoard interrupt routine, 
the KeyBoard type-ahead buffer is cleared. You cannot 
prevent this. 

If your program uses a Text file and you want to clear 
the line editing buffer for that file, you should call 
the Stream routine StreamKeyBoardResetC F) (assuming F 
is the name of the file). If F is a Text file which is 
attached to the console, this will get rid of the 
character F~ points to and clear Stream 1 s line editing 
buffer. 



Const ErrExitProgram = 7; {******} 
Exception ExitProgram; 



Abstract: 



ExitProgram is raised to abort (or exit) a program. 
The default handler for CtlCAbort and Scrounge raise 
this exception. 

WARNING: No one but System and Loader should Handle 
this exception. Anyone may raise it to exit a program. 
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Const ErrHelpKey = 8; {******} 
Exception HelpKey(var retStr: Sys9s); 

Abstract : 

HelpKey is raised when the HELP key is hit. 

Parameters : 

retStr - the set of characters to put into the input 
stream. This should be set by the handler if it 
continues from the exception. Likely values are 
"/Help<CR>" and chr(7) (the current value returned). 
The key board interupt routine sets retStr to f ' before 
raising this exception so if not set, and the handler 
resumes, nothing will be put into the input stream. 

Resume : 

Allowed. Should set retStr first, 
type DoubleWord = "integer; {should use Long instead} 
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Procedure SetDDS( Display: Integer ); 

Abstract: SetDDS sets the diagnostic display to a particular 
value . 



Parameters : 

Display - Desired value of the diagnostic display. 



procedure SysVers( n: integer; var S: string ); 

Abstract: This procedure will provide the caller with a string 
that is the version number of the current system '. 

Parameters: n is the minor version number of the system. 

S will be set to the current minor version of the system. 



Procedure Command; 

Abstract: This procedure alternately loads Shell and the user 
programs whose runfile names are generated by Shell. It is 
invoked by the main program in System and can be exited only 
if the user types T or if a runtime error occurs. 
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Module SystemDefs; 

SystemDefs - Common system definitions. 

John P. Strait 13 May 81. 

Copyright (C) Three Rivers Computer Corporation, 1981. 

Abstract: 

SystemDefs exports common system Const and Type definitions. The 
intent is that SystemDefs should not export Procedures or Vars 
since these require a Seg file. It is also intended that 
SystemDefs be reasonably short so that it doesn't take long to 
import. 

Version Number V1.2 
exports 

const Ether3MBaud = False; { no support for 3 MBaud Ether Net } 

EtherlOMBaud = True; { no support for 10 MBaud EtherNet } 

type Double = array[0..1] of Integer; 
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'ule UserPass; 

Dstract: 

This module provides facilities for dealing with the password and 
accounts file for PERQ. The login and protection facilities for 
Perq provide a very simple user validification . This system is 
NOT completly secure. 

Written by: Don Scelza 

Copyright (C) Three Rivers Computer Corporation, 1981. 

srsion Number V1.3 

ft*******************} Exports {********************} 

fpe IDType r 0..255; 

PassType = "Integer; { a two word value } 

UserRecord = packed record 

InUse: boolean; { is this entry in use. } 

Name: String[31]; { Name of the user } 

UserlD: IDType; ' { The user ID of the user. } 

GroupID: IDType; { The group ID of the user. } 

EncryptPass: PassType; { The encrypted password. } 

Profile: String; { Path name of the profile file. } 
end; 

motion FindUser (UserName: String; var UserRec: UserRecord): Boolean; 

motion ValidUser( UserName, Password: String; var UserRec: UserRecord): Boole 

motion AddUser (User Name , Password: String; Group: IDType; 

ProPath: String): Boolean; 
•ocedure NewUserFile; 
•ocedure ListUsers; 
motion RemoveUser( UserName : String): boolean; 

>nst PassFile = ' >System. Users' ; 

>nst MaxUsers = 10; 

r pe Users = array[0. .MaxUsers] of UserRecord; 
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function FindUser (UserName : String; var UserRec: UserRecord): 
Boolean; 

Abstract: This function is used to see if a user exists in the 
user file. 

Parameters: UserName is the name of the user that we are looking 
for . 

UserRec is a var parameter that is used to return the 
information about the user UserName if he is in the file. 

Results: This procedure will return true if the User UserName was 
in the user file. It will return False otherwise. 



function ValidUser( UserName, Password: String; var UserRec: 
UserRecord): Boole 

Abstract: This function is used to see if a user name and 
password match. 

Parameters: Username is the name of the user that we want to 
check. 

Password is the password for the user. 

UserRec will be filled with the user information if the user 
name and password match. 

Results: If the password is valid for the user then return true. 
Otherwise return false. 

Side Effects: This function will change the file PassFile. 



function AddUser (UserName , Password: String; Group: IDType; ProPath: 
String) : Boolean ; 

Abstract: This function is used to add a new user to the user 

file or change the parameters of an already existing user. 
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Parameters: Username is the name of the user that we want to add 
or change. 

Password is the password for the user. 

Group is the group number for the new user. 

ProPath is the path name of the profile file for this user. 

Results: If the user could be added or changed then return true. 
Otherwise return false. 

Side Effects: This function will change the file PassFile. 



procedure NewUserFile; 

Abstract: This procedure is used to create a new user file. 

Side Effects: This procedure will create a new file. It will 
destroy any information in the current file. 

procedure ListUsers; 

Abstract: This procedure is used to supply a list of the valid 
users . 

function RemoveUser (UserName : String): boolean; 

Abstract: This procedure is usd to remove a user from the list of 
valid users. 



Parameters: UserName is the name of the user that is to be 
removed . 



Results: If the user could be removed the return true. Otherwise 
return false. 
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Module UtilProgress; 



Module UtilProgress 



Progress Reporting Routines 

Copyright (C) 1981 Three Rivers Computer Corporation 

Abstract : 

Routines to show progress of utilities. 

Exports 

Procedure LoadCurs; 

procedure ShowProgress( NumLines : Integer); 

Procedure QuitProgress; 

Procedure StreamProgressC var F: File ); 

Procedure ComputeProgress( Current, Max: Integer ); 

Procedure LoadBusy; 
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Procedure LoadCurs; 

Abstract: Sets up the cursor before showing progress. 

Procedure LoadBusy; 

Abstract: Sets up the cursor so that we can show that we are 
busy. In busy mode, each ShowProgress moves the cursor by 
one in a random direction. This should be used when an 
operation is taking place and the utility cannot tell how 
long until it is done. 

Procedure QuitProgress ; 

Abstract: No more progress to report, turn off the cursor. 

Calls: IOCursorMode . 

Procedure ShowProgress( NumLines : Integer); 

Abstract: If started by LoadCurs then Indicate progress by moving 

the cursor down a certain number of scan lines. If started 

by LoadBusy then update busy cursor to show that doing 
something. 

Parameters: NumLines is the number of scan lines to move the 
cursor. 

Side Effects: CursPos is modified. BusyX is modified if <> -1. 

Environment: Assumes LoadCurs or LoadBusy has been called. 

Calls: IOSetCursorPos. 

Procedure StreamProgress( var F: File ); 

Abstract: Indicate progress reading a Stream file. 

Parameters: F is a Stream file which has been Reset. 

Side Effects: CursPos is modified. 
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Calls: IOSetCursorPos. 



Module UtilProgress 



Errors: NotOpen if F is not open. NotReset if F is open but 
not Reset. 

procedure ComputeProgress( Current, Max: Integer ); 

Abstract: Indicate progress given a current and maximum value. 

Parameters: Current, is the current value. Max is the maximum 
value. 

Side Effects: CursPos is modified. 

Calls: IOSetCursorPos. 
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module Virtual; 

Virtual - Perq virtual memory manager. 

J. P. Strait 1 Jan 80. 

Copyright (C) Three Rivers Computer Corporation, 1980. 

Abstract : 

Virtual is the Perq virtual memory manager. It supervises the 
segment tables and exports procedures for swapping memory 
segments. Virtual is the portion of the Perq memory manager 
which must remain memory resident at all times. Perq physical 
memory is segmented into separately swappable items (called 
segments) which may contain either code or data. 

Design: See the Q-Code reference manual. 

Version Number V2.8 
exports 

const VirtualVersion = '2.8* ; 

imports Memory from Memory; 
imports I0_Unit from 10 Unit; 
imports DisklO from DIskIO; 

function ReturnSegment : SegmentNumber ; 

procedure ReleaseSegmentNumber ( Seg : SegmentNumber ); 

function NewSegmentNumber : SegmentNumber; 

procedure MakeEdge( var E: MMEdge; S: SegmentNumber ); 

procedure DeleteSegment( var S: SegmentNumber ); 

procedure Swap0ut( var E: MMEdge ); 

procedure Swapln( E: MMEdge; S: SegmentNumber; P: MMPosition ); 

procedure Compact; 

procedure KeepSegments ; 

procedure FindHole( Fsize: MMIntSize; ForUser Segment : Boolean ); 

procedure IncI0Count( S: SegmentNumber ); 

procedure DecI0Count( S: SegmentNumber ); 

procedure SwapSegmentsIn( S1, S2, S3, S4: SegmentNumber ); 



var ScreenLast: Integer; 

Keepl, Keep2, Keep3, Keep4: SegmentNumber; 
Kludge: record case Integer of 

1: (A: DiskAddress) ; 

2: (D: Double) 

end ; 
BlockHeader: IOHeadPtr; 
BlockAddress : Double; 
BlockSId: Seg Id; 
Status: IOStatPtr; 
BootSerialNum: Double; 
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module Virtual 



BootSegld: Segld; 
SwapSId: Segld; 
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function ReturnSegment : SegmentNumber ; 

Abstract: ReturnSegment finds the .segment number of the caller of 
the procedure which called ReturnSegment by searching the 
call stack. 

Result: ReturnSegment = Segment number of the caller. 

Design: This routine depends on the Perq running a single process 
operating system where the caller is in the same process as 
the memory manager . 



procedure ReleaseSegmentNumber ( Seg : SegmentNumber ); 

Abstract: ReleaseSegmentNumber releases a segment number to the 
list of segment numbers which are not in use. 

Parameters: 

Seg - Segment number to return to the segment number free 
list. 



function NewSegmentNumber : SegmentNumber; 

Abstract: NewSegmentNumber allocates the next unused segment 
number . 

Errors: NoFreeSegments if there are no unused segment numbers. 

procedure MakeEdge( var E: MMEdge; S: SegmentNumber ); 

Abstract: MakeEdge makes an MMEdge record which the head field 
set to a certain segment number and the tail field set to 
the previous segment number (in physical address order). 

Parameters : 

E - MMEdge record to build . 

S - Segment to put in the head field. 
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Errors: EdgeFailure if MakeEdge can't find the previous segment 
number . 



procedure DeleteSegment( var S: SegrnentNumber ); 

Abstract: DeleteSegment returns a segment to the free memory 
list. This is done (for example) when the segment's 
reference and 10 counts both reach zero. 

Parameters: 

S - Number of the segment to be destroyed. To facilitate 
segment table scanning loops that contain calls to 
DeleteSegment: * If S was resident, it is changed to be 
the number of the segment which represents the free 
memory. This may not be the same as the original value 
if the original segment is coalesced with an adjacent 
fr-ee segment. * If S was not resident, it is changed 
to be the number of the segment which preceded it in 
the segment table. * MMFirst is set to have the same 
value as S on exit . 



procedure Swap0ut( var E: MMEdge ); 

Abstract: SwapOut swaps a data segment out to disk. 



Parameters : 

E - An edge where the head is the segment to be swapped and 
the tail is the previous segment. 

Result: E.T and E.H both are set to the number of the 
new free segment. 

Errors: PartNotMounted if the swapping partition is not mounted. 
SwapError if attempt to swap segment out while swapping is 
disabled. 
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procedure Swapln( E: MMEdge; S: SegmentNumber ; P: MMPosition ); 
Abstract: Swapln swaps a segment in from disk. 



Parameters : 

E - An edge describing where to put the segment in memory. 

The head is a free segment which will be filled by the 

segment to be swapped in. The tail is the previous 

segment . 
S - The segment to swap in. 
P - The position (low end or high end) to use within the 

head segment of the edge. 

Errors: SwapInFailure if attempt, to swap in a segment which was 
never swapped out . 



procedure Compact; 

Abstract: Compact , compacts physical memory by moving as many 
segments as possible toward low addresses. System segments 
(those with a reference count greater than one) will not be 
moved into the screen area, as segments cannot jump over one 
another . 



Errors: CantMoveSegment if attempt to move a segment with 
non-zero 10 count . 



procedure KeepSegments ; 

Abstract: KeepSegments marks the segments Keepl through Keep4 as 
not RecentlyUsed so that they won»t be swapped out. 



procedure FindHole( Fsize: MMIntSize; ForUserSegment : Boolean ); 

Abstract: FindHole attempts to find a hole (free memory) of a 
certain size. It performs a first-fit search. If a hole 
cannot be found, memory is compacted, and another first-fit 
search is performed. Eventually, a swap-out pass will ibe 
performed . 
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Parameters: 

Fsize - Minimum size of the hole. This is an internal 

size--Fsize=n means n+1 blocks. 
ForUserSegment - True iff this hole is to be used for a user 

segment. System segments may not be allocated in the 

screen area. 



procedure IncIOCount( S: SegmentNumber ); 

Abstract: IncIOCount increments the. count of input/output 
references to a data segment. A non-zero 10 count prevents 
a segment from being moved, swapped, or destroyed. 

Parameters: 

S - Segment number . 

Errors: UnusedSegment if S is not in use. FullMemory if S is 
not resident and there isn't enough memory to swap it in. 



procedure DecI0Count( S: SegmentNumber ); 

Abstract: DecIOCount decrements the 10 count of a data segment by 

one. If the reference and 10 counts both become zero: * if 

the segment is a data segment, it is destroyed. * if the 

segment is a code segment, it is destroyed only if it is in 
the screen or is non-resident. 



Parameters: 

S - Number of the segment. 

Errors: UnusedSegment if S is not in use. 

procedure SwapSegmentsIn( SI, S2, S3, S4: SegmentNumber ); 

Abstract: SwapSegmentsIn ensures that when it returns, S1, S2, 
S3, and S4 are resident. 

Parameters: S1, S2, S3, S4 - segments to swap in. 
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Errors: NilPointer if one of the segments is zero. 
, UnusedSegment if one of the segments is not really in use. 
FullMemory if there isn't enough memory to swap one of the 
segments in. 
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module Writer; 

Writer - Stream package output conversion routines. 

J. P. Strait ca. 1 Jan 81. 

Copyright (C) Three Rivers Computer Corporation, 1981. 

Abstract: 

Writer is the character output module of the Stream package. It 
is called by code generated by the Pascal compiler in response to 
a Write or Writeln. It is one level above Module Stream and uses 
Stream's output routines. 

Version Number V2.2 
exports 

imports Stream from Stream; 

procedure Wr ite Boolean ( var F: FileType; X: Boolean; Field: integer ); 
procedure WriteCh( Var F: FileType; X: char; Field: integer ); 
procedure WriteChArrayC var F: FileType; var X: ChArray; Max, Field: intei 
procedure Writeldentif ier( var F: FileType; X: integer; 

var IT: IdentTable; L, Field: integer ); 
procedure Writelnteger( var F: FileType; X: integer; Field: integer ); 
procedure WriteString( var F: FileType; var X: String; Field: integer ); 
procedure WriteXC var F: FileType; X, Field, B: integer ); 
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procedure WriteBoolean( var F: FileType; X: Boolean; Field: integer ); 

Abstract: Writes a boolean in fixed format. 

Parameters : 

X - the boolean to be written. 

F - the file into which X is to be written. 

Field - the size of the field into which X is to be written. 

procedure WriteCh( var F: FileType; X: char; Field: integer ); 

Abstract: Writes a character in a fixed format. 

Parameters: 

X - the character to be written. 

F - the file into which X is to be written. 

Field - the size of the field into which X is to be written. 



procedure WriteChArrayC var F: FileType; var X: ChArray; Max, Field: 
integer ) ; 

Abstract: Writes a packed character array in fixed format. 

Parameters: 

X - the character array to be written. 

F - the file into which X is to be written. 

Field - the size of the field into which X is to be 

written . 
Max - the declared length of X. 



procedure Writeldentif ier( var F: FileType; X: integer; var IT 
IdentTable; L, Field: integer ); 

Abstract: 

Writes an identifier from a table in fixed format. 

Parameters: 

X - the ordinal of the identifier in the range to L. 

F - the file to which X is written. 

IT - the table of identifier names indexed from to L. 
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L - the largest identifier ordinal defined by the table. 
Field - the size of the field into which X is written. 

Errors: BadldTable if the length of the identifier table is less 
than 1 . 



procedure Writelnteger ( var F: FileType; X: integer; Field: integer ); 

Abstract: Writes a decimal integer in fixed format. 

Parameters : 

X - the integer to be written. 
F - the file into which X is to be written. 

Field - the size of the field into which X is to be 
written . 



procedure WriteString( var F: FileType; var X: String; Field: integer 

); 

Abstract: Writes a string in fixed format. 

Parameters: 

X - the string to be written. 

F - the file into which X is written. 

Field - the size of the field into which X is written. 



procedure WriteXC var F: FileType; X, Field, B: integer ); 

Abstract: Writes an integer in fixed format with base B. 



Parameters: 

X - the integer to be written. 

F - the file into which X is to be written. 

Field - the size of the field into which X is to be 

written . 
B - the base of X. It is an integer whose absolute value 
must be between 2 and 36, inclusive. 
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Errors: BadBase if the base is not in 2.. 36. 
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39 AddrToField [ module DisklO ] 
234 AddUser [ module UserPass ] 
157 Adjust [ Module PERQ_String ] 

8 AllocDisk [ module AllocDisk ] 
169 AllocNameDesc [ Module PopUp ] 
160 AppendChar [ Module PERQ_String ] 

159 AppendStrin'g [ Module PERQ_String ] 
197 ArcCos [ module RealFunctions ] 

197 ArcSin [ module RealFunctions ] 

198 ArcTan [ module RealFunctions ] 
198 ArcTan2 [ module RealFunctions ] 
183 BufferPointer [ Module ReadDisk ] 
181 ChangeDisk [ Module ReadDisk ] 
181 ChangeHeader [ Module ReadDisk ] 
139 ChangeSize [ module Memory ] 

210 ChangeTitle [ Module Screen ] 

211 ChangeWindow [ Module Screen ] 
183 ChgHdr [ Module ReadDisk ] 

1 42 CleanUpMemory [ module Memory ] 
25 CnvUpper [ Module CmdParse ] 

138 CodeOrDataSeg [ module Memory ] 
231 Command [ Program System ] 

243 Compact [ module Virtual ] 

238 ComputeProgress [ Module UtilProgress ] 

157 Concat [ Module PERQ_String ] 

160 ConvUpper [ Module PERQ_String ] 
146 CopySegment [ module MoveMem ] 

196 Cos [ module RealFunctions ] 

197 CoTan [ module RealFunctions ] 

139 CreateSegment [ mo'dule Memory ] 

62 CreateSpiceSegment [ module FileAccess ] 

210 CreateWindow [ Module Screen ] 

144 CurrentSegment [ module Memory ] 

138 DataSeg [ module Memory ] 

13 DblEql [ module Arith ] 

13 DblGeq [ module Arith ] 

13 DblGtr [ module Arith ] 

13 DblLeq [ module Arith ] 

13 DblLes [ module Arith ] 

13 DblNeq [ module Arith ] 

9 DeallocChain [ module AllocDisk ] 
9 DeallocDisk [ module AllocDisk ] 

244 DecIOCount [ module Virtual ] 
141 DecRefCount [ module Memory ] 

158 Delete [ Module PERQ_String ] 
67 DeleteFilelD [ Module FileDir ] 
242 DeleteSegment [ module Virtual ] 
169 DestroyNameDesc [ Module PopUp ] 
169 DestroyRes [ Module PopUp ] 

62 DestroySpiceSegment [ module FileAccess ] 

6 DeviceDismount [ module AllocDisk ] 

6 DeviceMount [ module AllocDisk ] 

143 DisableSwapping [ module Memory ] 
114 Disklntr [ Module IO_Private ] 

40 DisklO [ module DisklO ] 

40 DiskReset [ module DisklO ] 
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8 DismountPartition [ module AllocDisk ] 

6 DisplayPartitions [ module AllocDisk ] 
42 DisposeP [ module Dynamic ] 

18 DoCmdFile [ Module CmdParse ] 
11 DoubleAbs [ module Arith ] 

11 DoubleAdd [ module Arith ] 

12 DoubleBetween [ module Arith ] 
12 DoubleDiv [ module Arith ] 

12 Doublelnt [ module Arith ] 

12 .DoubleMod [ module Arith ] 

11 DoubleMul [ module Arith ] 

11 DoubleNeg [ module Arith ] 

11 DoubleSub [ module Arith ] 

23 DstryArgRec [ Module CmdParse ] 

19 DstryCmdFiles [ Module CmdParse ] 
23 DstrySwitchRec [ Module CmdParse ] 

52 ElODataBytes [ module EtherlOIO ] 

53 ElOGetAdr [ module EtherlOIO ] 
51 ElOInit [ module EtherlOIO ] 

51 E10I0 [ module EtherlOIO ] 

52 ElOReset [ module EtherlOIO ] 

56 E10Srv [ module Ether Interrupt ] 

53 ElOState [ module EtherlOIO ] 

52 ElOWait [ module EtherlOIO ] 

53 E10WI0 ['module EtherlOIO ] - 

115 E3RecStart [ Module IO_Private ] ; 

115 E3Reset [ Module I0_Private ] 

143 EnableSwapping [ module Memory ] 

115 Ether3Intr [ Module IO_Private ] 

126 Ether3Receive [ Module I0_Unit ] 

125 Ether3Start [ Module I0_Unit ] 

126 Ether3Transmit [ Module I0_Unit ] 
19 ExitAllCmdFiles [ Module CmdParse ] 
19 ExitCmdFile [ Module CmdParse ] 

195 Exp [ module RealFunctions ] 

39 FieldToAddr [ module DisklO ] 

71 FilelDtoSegID [ module FileSystem ] 

143 FindCodeSegment [ module Memory ] 

182 FindDiskBuffer [ Module ReadDisk ] 
243 FindHole [ module Virtual ] 

7 FindPartition [ module AllocDisk ] 
23^ FindUser [ module UserPass ] 

71 FixFilename [ module FileSystem ] 
114 Floppylntr [ Module IO_Private ] 

183 FlushAll [ Module ReadDisk ] 
183 FlushBuffer [ Module ReadDisk ] 
182 FlushDisk [ Module ReadDisk ] 

82 FSAddToTitleLine [ module FileUtils ] 
75 FSBlkRead [ module FileSystem ] 

75 FSBlkWrite [ module FileSystem ] 

74' FSClose [ module FileSystem ] 

80 FSDelete [ module FileUtils ] 

72 FSDismount [ module FileSystem ] 
74 FSEnter [ module FileSystem ] 

83 FSExtSearch [ module FileUtils ] 
82 FSGetFSData [ module FileUtils ] 
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72 FSGetPrefix [ module FileSystem ] 

71 FSInit [ module FileSystem ] 

72 FSInternalLookUp: [ module FileSystem 1 
75 FSIsFSDev [ module FileSystem ] 

72 FSLocalLookUp: [ module FileSystem ] 

73 FSLookUp) [ module FileSystem ] 

81 FSMakeDirectory [ module FileUtils ] 

71 FSMount [ module FileSystem ] 

82 FSPopSearchltem [ module FileUtils ] 

82 FSPushSearchltem [ module FileUtils ] 
84 FSRemoveDots [ module FileUtils ] 

80 FSRename [ module FileUtils ] 

81 FSScan [ module FileUtils ] 

73 FSSearch [ module FileSystem ] 

83 FSSetFSData [ module FileUtils ] 

72 FSSetPrefix [ module FileSystem ] 

81 FSSetSearchList [ module FileUtils ] 

75 FSSetupSystem [ module FileSystem ] 

226 FullLn [ module Stream ] 

224 GetB [ module Stream ] 

224 GetC [ module Stream ] 

66 GetDisk [ Module FileDir ] 

66 GetFilelD [ Module FileDir ] 

212 GetFont [ Module Screen ] 

116 Getlntr [ Module IO_Private ] 

166 GetShellCmdLine [ Module PopCmdParse ] 

26 GetSymbol [ Module CmdParse ] 

86 GetTStamp [ module GetTimeStamp ] 

15 GetTString [ module Clock ] 

211 GetWindowParms [ Module Screen ] 

92 GiveHelp [ Module Helper ] 

114 GPIBInlntr [ Module IO_Private ] 

114 GPIBOutlntr [ Module IO_Private ] 

90 gplnit [ module gpib ] 

183 HeaderPointer [ Module ReadDisk ] 

244 IncIOCount [ module Virtual ] 

140 IncRefCount [ module Memory ] 

62 Index [ module FileAccess ] 

6 InitAlloc [ module AllocDisk ] 

182 InitBuffers [ Module ReadDisk ] 

18 InitCmdFile [ Module CmdParse ] 

38 InitDisklO [ module DisklO ] 

59 InitExceptions [ module Except ] 

99 Initio [ Module I0_Init ] 

138 InitMemory [ module Memory ] 

169 InitPopUp [ Module PopUp ] 

178 InitRandom [ module RandomNumbers ] 

226 InitStream [ module Stream ] 

159 Insert [ Module PERQ_String ] 

12 IntDouble [ module Arith ] 

176 IntegerSort [ module Quicksort ] 

126 IOBeep [ Module I0_Unit ] 

124 IOBusy [ Module IOJJnit ] 

123 IOCRead [ Module I0_Unit ] 

102 IOCursorMode [ Module I0_0thers ] 

123 IOCWrite [ Module 10 Unit ] 
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96 IOErrString [ Module IOErrMessages ] 

124 IOGetStatus [ Module I0_Unit ] 

104 IOGetTime [ Module I0_0thers ] 

105 IOKeyClear [ Module I0_0thers ] 
105 IOKeyDisable [ Module IO_Others ] 
105 IOKeyEnable [ Module I0_0thers ] 

102 IOLoadCursor [ Module IO_Others ] 
124 IOPutStatus [ Module IO_Unit ] 

103 IOReadCursPicture [ Module IO_Others ] 

104 .IOReadTablet [ Module I0_0thers ] 
104 IOScreenSize [ Module I0_0thers ] 
103 IOSetCursorPos [ Module I0_0thers ] 
103 IOSetFunction [ Module I0_0thers ] 
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212 Line [ Module Screen ] 
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241 MakeEdge [ module Virtual ] 
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235 NewUserFile [ module UserPass] 

19 NextID [ Module CmdParse ] 

20 NextlDString [ Module CmdParse ] 

21 NextString [ Module CmdParse ] 

166 NullIdleProc [ Module PopCmdParse ] 

38 NumberPages [ module DisklO ] 

22 ParseCmdArgs [ Module CmdParse ] 

22 ParseStringArgs [ Module CmdParse ] 

163 PattDebug [ module PMatch ] 

163 PattMap [ module PMatch ] 

163 PattMatch [ module PMatch ] 

173 PFileEntry [ module Profile ] 

173 PFilelnit [ module Profile ] 

39 PhysAddrToLogAddr [ module DisklO ] 
56 PopDCB [ module Ether Interrupt ] 

166 PopUniqueCmdlndex [ Module PopCmdParse ] 
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1. Introduction. 



This manual describes how to use the PERQ operating system to 
perform some interesting operations. Examples are given of the ways 
we have found to be successful in performing these operations. 
Although there are obviously many ways to perform these operations, 
the ones given here are successful. 
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2. Allocating Memory. 



This section describes how to use the Memory module to allocate 
blocks of memory needed for reading in Fonts and pictures from 
files, for creating pictures off screen for RasterOp, and for 
handling large amounts of data. 

Fonts and pictures are generally stored in files on the disk. To 
use the fonts and pictures, they must first be read into memory. 
First, do a FSLookUp (or one of the other lookup functions) from 
FileSystem. A VAR parameter to this function is the number of 
blocks in the file. This number can be passed to the memory manager 
to tell it how much storage to allocate. Memory on the PERQ is 
divided into "segments". Each segment can have up to 256 blocks. 
Each block is 256 words or 512 bytes. When a segment is created, it 
is given an initial size, a maximum size, and an increment by which 
to increase the current size when that is not enough. A segment is 
created by using the procedure from memory: 

Procedure CreateSegment( 

var Seg : Integer; 

initialSize, {in blocks} 

sizelncrement , {in blocks} 
maximumSize: integer); {in blocks} 

where seg is assigned the segment number that has been created. 
There are two ways to use a segment once created. The first is 
simply to create it with a fixed size and use the entire segment at 
once. For example, when reading an entire file into memory. Use 
MakePtr(seg, offset, TypeOf Pointer ) to create a pointer of type 
TypeOf Pointer in that segment at word offset "offset". The second 
way to allocate out of a segment is to use the standard Pascal NEW. 
NEW has been extended to have two forms. The standard form, NEW(p), 
allocates the pointer out of the default segment. The extended 
form, NEW(seg, allignment, p) , allocates the storage out of the 
specified segment. Some buffers need to be specially aligned. For 
example, RasterOp buffers need to be on a multiple of M. Do not use 
for the alignment. For DISPOSE, only the pointer should be 
specified. NEW is implemented by a call to the procedure NewP in 
Dynamic. The user can call this procedure directly if he wants to 
specify the size of storage to allocate. NewP is defined as 

Procedure NewP(seg: integer; 

allignment: integer; 
var p: MMPointer; 
size: integer); 

The segment number of is always defined to be the default segment 
for NewP and NEW. All other segment numbers should come from a 
prior CreateSegment . To calculate the size of a record or array, 
WordSize is a useful intrinsic. It returns the size of any PASCAL 
variable or type and can be used in constant or variable expres- 
sions. The user must remember the size used with NewP since 
DisposeP takes the size as a parameter. 
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Procedure DisposeP(var p: MMPointer; size: integer); 

The size MUST be the same size used with NewP. One way to insure 
this is to store the size as a field in a record. As an example of 
NewP, we make a variable length array of strings: 

Type 

s25 = String[251; 
NameDesc = RECORD 

numCommands: integer; 

recSize: integer; 

commands: array[1..1] of s25; {vbl length array} 
END; 
p NameDesc = "NameDesc; 

To allocate a pNameDesc with NUM names in the segment seg , the 
following would be done: 

var p: MMPointer; 
size: integer; 
names: pNameDesc; 
begin 
size := 2*WordSize( integer) + { for the 2 integers } 

NUM*WordSize( s25 ) ; { the variable part } 
NewP(seg, 1, p.p, size); 
names := RECASTCp.p, pNameDesc); 
names" .recSize := size; 
names" .numCommands := NUM; 
{$R-} {turn range checking off to assign names} 
for i := 1 to NUM do 

names" .commandsC i] :r f <some string)- 1 ; 
{$R=} {return range checking to the previous state} 
end ; 

Since Dynamic uses special places in the segment to store the free 
list information used by NEW, it is bad practice to mix NEW and 
MakePtr on the same segment. 

When a program requires a large amount of data, consider the 
swapping characteristics of the operating system. Since POS swaps 
an entire segment at once, a big segment will take much longer to 
read in and write out. Also, there may simply not be enough memory 
to hold the large segment and all other necessary data. Therefore, 
the user should divide the data into separate segments, each of 
which is about 10 blocks large. For example, this is what the 
editor does to hold the piece table. 
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3. Reading in Large Files. 



There are a number of ways to read in a font or a picture from the 
disk. The fastest and most straightforward way is to use MultiRead. 
This is a special procedure that uses the micro-code's ability to 
read multiple blocks at once. The read, therefore, occurs at the 
maximum possible speed (the actual speed depends on how contiguous 
the blocks are on the disk) . 

To use multi-read on a file called FileName do the following: 

var fid: FilelD; {imported from FileSystem} 
blocks, bits: integer; 
seg: Integer; 

begin 

fid := FSLookUpC FileName , blocks, bits); 

if fid = then {file not found} 

else begin 

CreateSegment(seg , blocks, 1, blocks); {allocate} 
MultiRead(fid, MakePtr(seg, 0, pDirBlk) , 0, blocks); 
end : 

end ; 

MultiRead takes a filelD, a pointer to the start of the block of 
memory, the first block to read of the file to read, and the number 
of blocks. The above code reads in the entire file. 

If you do not wish to import MultiRead, you can read in each block 
of the file using FSBlkRead. Replace the MultiRead call above with 
the following 

for i := to blocks - 1 do 

FSBlkRead(fid, i, MakePtr(seg, i*256, pDirBlk)); 

The MakePtr creates a pointer to the i-th block (the i*256-th word) 
of the segment. 

WARNING: The multi-block read exported by FileAccess does not work. 
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4. RasterOp and Line. 



RasterOp and Line are the chief graphics primitives of the PERQ. 
Each is fast. TThe primitives allow drawing of rectangles and 
lines, respectively. RasterOp is described in the PERQ Pascal 
Extensions manual and Line is exported by the Screen module. 

Use RasterOp to clear a rectangle (either white or black); transfer 
a picture from one place to another; or combine two pictures. Use 
Line to draw a single width line on the. screen at any orientation. 

RasterOp is a general utility. It can be used on buffers that are 
not on the screen. Therefore, it takes parameters that describe the 
dimensions of the buffer. For the Screen, the two constants 
SScreenW and SScreenP are exported by the Screen module. As a first 
example, we will clear an area of the screen 100 bits wide, 200 bits 
tall, starting at position (300, 400): 

RasterOp(RXor , 100, 200, 300, 400, SScreenW, SScreenP, 

300, 400, SScreenW, SScreenP); 

We do this by Xoring the area with itself. Similarly, to clear an 
area to black, use the function RXNor. The function names are 
exported by the module Raster. To move a rectange from one area of 
the screen to another, simply use a different source and destination 
position. Remember that the destination is specified first. 

To move a rectangle one bit down: 

RasterOp(RRpl, 100, 200, 300, 400, SScreenW, SScreenP, 

300, 399, SScreenW, SScreenP); 

The position (0,0) is in the upper left corner; the lower right 
corner is (767, 1023). RasterOp does not validate the widths or 
positions so be careful. Be especially careful to avoid negative 
widths and heights since these are taken as large positive numbers. 
The available RasterOp functions are: 

RRpl {dest get src} 

RNot {dest get invert of src} 

RAnd {dest gets dest AND src} 

RNAnd {dest gets dest AND invert of src} 

ROr {dest gets dest OR src} 

RNor {dest gets dest OR invert of src} 

RXor {dest gets dest XOR src} 

RXNor {dest gets dest XOR invert of src} 

RasterOp can also move a picture from or to an off-screen buffer. 
Suppose a picture is 543 bits wide and 632 bits high. The buffers 
used by RasterOp must be a multiple of 4 words in width. Therefore, 
allocate a buffer that is 36 words (=576 bits) wide and 632 bits 
high. This is 22752 words. Since segments can only be allocated 
on block boundaries, round up to 22784 words or 89 blocks and create 
a segment of this size and a Raster Ptr to its start: 
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CreateSegment(seg, 89, 1, 89); 
p := MakePtr(seg, 0, RasterPtr); 

Now we might read a file into this buffer as described in Section 
3. Next, we want to transfer the picture onto the screen, say at 
position (10, 100). We use 

RasterOpCRRpl, 543, 632, 10, 100, SScreenW, SScreenP, 

0, 0, 36, p); 

The destination (given first) is (10, 100) on the screen, but the 
source is now the buffer. The bit width to transfer is 543 (the 
second argument), but the word width of the buffer is 36. (SScreenW 
is 48, the number of words across the screen) . p. is the pointer to 
the buffer. A picture can be transfered from the screen into a 
buffer, or between buffers in a similar manner. 

If you want to allocate a buffer using NEW or NewP for RasterOping 
to or from, be sure to make the allignment 4. 

Line is used for drawing straight, single width lines on the screen. 
It takes a source and destination x and y position, a style and a 
pointer to the buffer to draw in. Currently, it can only draw lines 
in buffers that have width 48 (e.g. the screen). Line is defined 
as : 

Line(style: LineStyle; x1, y1, x2, y2: integer; p: RasterPtr); 

where the style is DrawLine, XOrLine or EraseLine. Use SScreenP for 
P. 
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5. Windows. 



POS currently supports multiple, overlapping windows. However, POS 
does not know when two windows overlap. Thus all windows are 
"transparent" in that anything written to a covered window will 
"show through" any windows that are on top. Even with this 
restriction, windows are useful for a number of applications. For 
example, if multiple things are going on and the user wants to 
separate the input and output of each. The Screen package handles 
scrolling of the text inside windows automatically. Therefore 
separate windows scroll separately (if they do not overlap). This 
is useful, for example, in a graphics package where there are 
commands typed in a small window with the rest of the area used for 
the graphics (an example is the CursDesign program from the User 
Library) . 

The user must maintain the allocation of windows; the user tells the 
screen package where each window is and is expected to remember the 
number for each window. Window zero is reserved for the system and 
its size should not be changed. Use CreateWindow to create a new 
window. The parameters passed are for the outside of the window. 
There are two bits of border, then a hair line, then two more bits 
on each side. On the top there may be a title line which is a band 
of black with white letters in it. Once a window is created, it 
cannot be moved or re-signed. 

Creating a new window automatically changes output to go to the new 
window. Given a set of windows, you can change amongst them by 
using the ChangeWindow command. The procedure GetWindowParms re- 
turns parameters of the current window. Unfortuneately , you must do 
transformations on the numbers returned to get the inside and 
outside areas of windows : 

GetWindowParms( var windx: WinRange; orgX, orgY, width, height: 
integer; 

var hasTitle: boolean); 

windx is the current window number and hasTitle tells whether there 
is a title line. Calculate the outside of the window as follows: 

begin 

orgX := orgX -2; 
width := width + 5; 
orgY := orgY - 2; 
height := height + 5; 
if hasTitle then 

begin 

orgY := orgY - 15; 

height := height + 15; 

end ; 
end ; 

Calculate the inside of the window as follows: 
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begin 

orgX := orgX + 2; 
width := width - 4; 
if hasTitle then 

begin 

orgY := orgY + 2; 

height := height - 4; 

end ; 
end ; 

One thing to note: the title line for a window is written in the 
font that was in effect before the window was created. This font 
will also be remembered as the font to use the next time the window 
that was in use before the CreateWindow is used again. 
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6. Fonts. 



The definition of fonts is given in the Screen module. Fonts 
currently can be variable width, but there is no kerning (the font 
must fit within the character block) . A font starts with some 
global information: the height of the font in bits and the offset of 
the baseLine. Next is an array, which for each character has the 
position and width of that character in the font. A width of zero 
means the character is not defined. After this array are the actual 
bit pictures for the characters which are defined. Fonts can be 
created by using the FontEd program from the User Library available 
from the Sales department. 

To use a font, it must first be loaded into memory. See the section 
on reading files above. The Screen package allows you to change the 
font to one you have defined". First, you should define a new window 
so that you don't change the font for the default system. Now 
simply call the function SetFont passing it a pointer to the top of 
the segment into which you read the font. If you wish to Raster Op a 
character (ch) using font FontP onto the screen by hand (at position 
(xPos, yPos)), use the following form (copied from SPutChr in 
ocr een j : 

var Trik: Record Case Boolean of 

true: (F: FontPtr); 
false: (seg, ofst: integer); 
end ; 
begin 

with FontP" . Index[ord (ch) ] do 
if width > then 
begin 

Trik.f := FontP; 
RasterOp( RRpl , width, FontP" .height , xPos, 

yPos-FontP" . Base , SScreenW, SScreenP, 
Offset, Line*FontP~. height , SScreenW, 
MakePtr(Trik.seg, Trik.Of st+#404, FontPtr)); 
end ; 
end; 

The #404 is the size of the introductory part of a font. Trik is 
used to create a pointer to the actual bit pattern part of a font. 
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7. Cursors. 



Unfortuneately , the term "Cursor" is used in two ways in PERQ-land . 
First, it is the position where the next character will be placed on 
the screen. This "cursor" is usually signified by an underline "_" . 
The second "cursor" is the arrow or other picture that usually 
follows the pen or puck on the tablet. This section discusses the 
latter form. 

The picture in the cursor can be set by the user. POS currently 
uses a number of different pictures. The default arrow cursor, the 
"scroll" and "do-it" cursors for PopUp menus, the hand that moves 
down the side of the screen, and the Busy Bee are all examples of 
cursors. The program CursDesign from the User Library can be used 
to create cursors. Once a picture has been created, it can be read 
into Memory from the file (see above) and then copied into the 
Cursor. Each cursor is 56 bits wide and 64 bits tall which comes to 
4 words wide and 64 bits tall or exactly one block. Therefore a 
file with one cursor in it can be read in directly into the cursor 
buffer. The definition of the cursor and all utility procedures for 
manipulating it are in I0_0thers. 

var curs: CurPatPtr; 

begin 

New(0, 4, curs) ; 

Fid := FSLookup(CursorFile, blks, bits); 

FSBlkRead(fid, 0, RECAST(curs, pDirBlk)); 

end ; 

Note that the cursor buffer must be quad-word aligned (since a 
RasterOp is done from it by the system). To set a cursor, use the 
function IOLoadCursor . It takes a CurPatPtr and two integers to 
tell it the x and y offsets in the cursor from where the cursor is 
positioned. Thus, for a "bull's eye" cursor where the center is the 
interesting point, the offsets would be the offsets from the top 
left of the center. For a right pointing arrow, the offsets would 
describe the point of the arrow. The user then does not need to 
compensate when reading the cursor position. I0_0thers exports the 
cursor DefaultCursor which is the upper-left pointing arrow. 

The cursor can be used in a number of ways. If you want the cursor 
to follow the tablet and then read the tablet coordinates, use the 
cursor mode TrackCursor. 

IOCursorMode(TrackCursor) ; 

Be sure to turn the tablet on using IOSetModeTablet(relCursor) . If 
you want to explicitly set the position of the cursor, use cursor 
mode IndepCursor. To set the cursor position, use the function 

IOSetCursorPos(x ,y) ; Note that if you set the cursor position 
~in Track mode, it will be overwritten almost immediately by the 
position of the tablet. You can still read the tablet in IndepCur- 
sor mode if it has been turned on; the tablet position is simply not 
used to set the cursor position. 
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repeat until tabswitch; 

while tabswitch do; 

{ read tablet position, or whatever } 

The Cursor functions determine how the cursor interacts with the 
picture on the screen under- the cursor. The cursor function also 
determines the background color. The even functions' have zeroes in 
memory represented as white and ones as black (this is the default: 
white background with black characters) . Odd functions have zeroes 
represented as black and ones as white. The functions are as 
follows (inverted means screen interpretation as just described): 



CTWhite: 

CTCursorOnly: 

CTBlackHole: 

CTInvBlackHole 

CTNormal: 

CTInvert : 
CTCursCompl: 

CTInvCursCompl 



Screen picture is not shown, only cursor. 

Same as CTWhite only inverted. 

This function doesn't work. 

This function doesn't work either. 

Ones in the cursor are black, zeros allow 

screen to show through. 
Same as CTNormal only inverted. 
Ones in the cursor are XORed with screen, 

zeros allow screen to show through. 
Same as CTCursCompl only inverted. 



Programming Examples - Reading Characters 



08 Feb 82 



8. Reading Characters from the Keyboard. 



The normal PASCAL character Read waits for an entire line to be 
typed before returning any characters. This allows editing of the 
line (backspace, etc.) as described in the PERQ Introductory Manual. 
If you want to get the characters exactly when they are hit, you 
must call IOCRead in 10 Unit. The normal form for this call is 



If IOCRead (TransKey, c) = I0EI0C then { c is a valid character } 

where I0EI0C is a constant defined in the module IOErrors and c is a 
character variable. If IOCRead returns some value other than 
I0EI0C, then no character has been hit. "Transkey" tells 10 that 
you want the standard ASCII interpretation of the character. If you 
use "KeyBoard" instead, you will get the actual 8 bits returned by 
the keyboard. This code allows you to distinguish the special keys 
(INS, DEL, HELP, etc.) from the other keys and allows you to 
distinguish CONTROL-SHIFT-key from CONTROL-key. You will have to 
experiment to get the code for the desired key. There is no way to 
tell when a key has been let up. 

IOCRead does not write out the character typed. If you want it 
printed, you should use Write(c) . If you want to print all the 
special symbols in the font file (there is a picture associated with 
every control character), you can set the high bit of the character. 
This prevents the Screen package from interpreting the character as 
its special meaning if any. Thus, you could print the picture for 
RETURN by using 



Write(chr(LOr(RETURN, #200))); 

IOCRead also does not turn on the input marker 
user that he is supposed to type something. 
Screen) before requesting input and 
underline prompt appear. 



("_") which shows the 

Do a SCurOn (from 

an SCurOff when done to make the 



The HELP key and ~C are handled specially by the 10 system. If the 
HELP key is hit, an exception is raised. If you do not handle this 
exception (called HelpKey, exported by System), "/HELP-CCRV will be 
put into the input stream as if typed. If you do handle this 
exception, you can put chr(7) into the input stream: the code for 
HELP. When "C is typed, the exception CtlC is raised (also defined 
in System). If not caught, nothing special is done until the second 
~C is hit when CtlCAbort is raised. This causes the program to 
exit. Note that the ~C f s are put into the input stream. "SHIFT-C 
causes a separate exception to be raised. If the user wants one ~C 
to do something special in a program (for example, abort type-out 
and go to top level as in FLOPPY) , put the following Handler at the 
top level : 



Handler CtlC; 
begin 

WriteLn('~c f ); 
IOKeyClear; 



{remove the "C from input stream} 
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CtrlCPending := false; {so next ~C won*t abort program} 

goto 1; {top of command loop} 

end; 

(IOKeyClear comes from I0_0thers.) Another special character to know 
about is ~S. This character prevents any further output to the 
screen until a ~Q is typed. If you want to disable this processing, 
simply set CtrlSPending to false after every character is read. 
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9. CmdParse and PopCmdParse. 

CmdParse and PopCmdParse export a number of procedures that help 
read and parse strings of commands and arguments. Procedures exist 
for handling command files (which may be nested), for parsing a 
string containing inputs, outputs and switches into its components, 
and for getting a command index from a string or a PopUp menu. 

The modules CmdParse and PopCmdParse document how each of the 
procedures work. This section provides an example of how to use the 
parsing procedures in CmdParse. 

var ins, outs: pArgRec; 
switches: pSwitchRec; 
switchAr: CmdArray; 
err: String; 
ok, leave: boolean; 
c : Char ; 
s: CString; 
isSwitch: boolean; 
i: integer; 
begin 

<assign all switches to SwitchAr> 

c := NextString(s, isSwitch); {remove "<utility>"} 
if (c<>* ') and (cOCCR) then 

StdError( Er IllCharAfter , f <utility> f , true); 
ok := ParseCmdLine(ins, outs, switches, err); 
repeat 

if not ok then StdError ( Er AnyError , err, true); 
while switches <> NIL do {handle all the switches} 
begin 

ConvUpper (switches* .switch) ; 
i := UniqueCmdIndex(switches* .switch, 

switchAr , NumSwitches) ; 
case i of 

1 : <handle switch # 1> 

2 : <handle switch # 2, etc.) 
otherwise: StdError ( ErBadSwitch , 

switches" .switch , true); 
end ; 
switches := switches* .next ; 
end ; 
if (outs". name <> f f ) or (outs*. next <> NIL) then 

StdError(ErNoOutFile, »<utility>», true); 
if ins". next <> NIL then 

StdError(ErOneInput , futility)*, true); 
if ins". name = '' then 
begin 

WriteC ' <Prompt for argument): '); 
ReadLn( s) ; 

ok := ParseStringLine(s, ins, outs, switches, err); 
leave := false; 
end 
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else begin 

leave := true; 

if not RemoveQuotesC ins" .name) then 
Std Error ( Er Bad Quote , ,f , true); 
FSRemoveDotsC ins" .name) ; 

<handle the argument> 

end ; 

until leave; 
end; 
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document . 
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keep customers apprised of all documentation changes as 
quickly as possible. The Reader's Comments card is distrib- 
uted with this document to request users' critical evalu- 
ation to assist us in preparing future documentation. 
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1. Preface: Notation Conventions. 



The notations used below have been clearly and consistently used 
throughout this document. 



SYMBOL MEANING 



[] optional feature 

{} to n repetitions 

CAPITALS literal 

lowercase or 

tjOwerCase metanatne 

control- key 

CR carriage return 

SHIFT shift key 

! or 
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2. Introduction. 



The PERQ has a hierarchical, multi-directory file system which 
supports search lists and noncontiguous files. Devices (e.g., hard 
and floppy disks) are divided into a number of sections called 
"partitions." Each partition can contain any number of directories. 
The main directory in a partition (the one you get if you simply 
specify the partition name) is the Root directory for that parti- 
tion. All directories can contain other directories and files. 
Directories are stored as standard files and can be accessed by any 
program. However, the system knows special things about their 
format. All files in this file system can be noncontiguous; blocks 
for . files may be scattered throughout the partition in which they 
reside. The naming conventions for filenames are described in 
detail in "The PERQ Introductory User Manual" but all are of the 
form : 

[[[device] : partition] > ] {directory>} [filename] 

Files may be stored on floppy disks in two ways. The FLOPPY program 
can be used to transfer files to and from the floppy, or the floppy 
can be initialized as part of the file system. These types of 
floppy disks are called "FLOPPY floppies" and "filesystem floppies" 
respectively. 

NOTE: Floppies of one type CANNOT be used for the other; the formats 
are totally incompatible. Floppy disks that contain files transfer- 
red by the program FLOPPY must be accessed by the FLOPPY program 
(and not by the file system directly) , and FLOPPY cannot read a file 
system floppy. 

To create a file system floppy, use the Partition program described 
below. 

The user programs that handle the file system are described in the 
"PERQ Utility Programs Manual" and only Partition, Scavenger, 
MakeBoot, and FixPart are described in detail here. 

To create a file system on a blank disk, it is necessary to run the 
command file "InitDisk.Cmd" which is found on the boot floppy in 
every release package. A heavily-commented printed copy of this 
command file is provided as instructions for how to initialize a 
blank device. To create a file system on a floppy, use the 
Partition program described below. The manual "How To Make a New 
System" describes the process necessary to create a system using the 
MakeBoot program. This manual provides the background necessary to 
understand these processes. 
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3. Partitions and the Partition Program. 

The partitions on a device are restricted to be fewer than 32768 
blocks, where each block is 256 words (512 bytes, 4096 bits). The 
block size is fixed for all devices. On a 12-megabyte disk or a 
floppy, the entire device can be in one partition. On a 24-megabyte 
disk, at least 2 partitions are needed. We recommend, however, that 
each partition have 10080 or fewer blocks in them, otherwise 
Scavenger (described below) cannot handle the partition in one pass. 
All partitions must start and end on cylinder boundaries; the 
Partition program enforces this constraint. 

No file or directory can be in more than one partition (a file 

cannot cross a partition boundary). Therefore, having free blocks 

in one partition does not prevent you from running out of free 
blocks in another . 

The Partition program is used to create and modify the partitions on 
a device. Creating a partition usually destroys all old data in the 
area where the partition is made. The device should first be 
formatted (by using DTST on hard disks or FLOPPY for floppy disks) . 
After formatting, Partition is the first program to run. 

Partition asks whether you want to "debug". If you answer "YES", 
then nothing will be modified on the device. Answer "NO" if you 
want to make modifications. 

Next, Partition requires that you tell it what device you want to 
modify. The choices are the harddisk or floppy. If you specify the 
harddisk, Partition checks to see whether the disk is a 12 or 
24-megabyte disk. It then asks for confirmation of the size chosen. 
If you specified the floppy, you then have to tell partition whether 
the floppy is or single or double-sided. A floppy that is formatted 
on both sides can be partitioned as either single or double sided. 

Next, the program asks if you want to partition the entire disk. 
Answer "YES" if you are starting from scratch (for example, on a 
newly formatted floppy or when installing the file system on a new 
machine). If you want to modify an existing device, answer "NO". 

If you answered "YES"- to initialize the entire disk, then the 
program asks for information about each partition in turn. The 
device must first be given a name (eight or fewer characters) . 
Next, each of the partitions must be given a name (also eight or 
fewer characters) . Examples of partition names used for the hard 
disk include "boot", "user" , and "exp". There is no problem with 
having a partition with the same name as a device, but all the 
partitions must have unique names. The size of each partition is 
also requested. As mentioned earlier, we -have found that 10080 or 
fewer blocks are desirable; otherwise Scavenger (described below) 
cannot handle the partition in one pass. This means there are 3 
partitions on a 12-megabyte disk and 5 on a 24-megabyte disk. The 
minimum size for partitions is 120 blocks on a 12 megabyte disk, 240 
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that device. 

For each partition on the device, the program asks whether to 
initialize the partition pages. This process puts all the pages in 
the partition on the free list and therefore should be done for a 
new device. The next question is whether to test after initializing 
the pages. Although this slows down the initialization somewhat, it 
is good practice to do this testing. If any pages are found to be 
bad during testing, they are removed from the free list so they will 
never be accessed again. The final question asked before initiali- 
zation is whether to write every page twice. This provides some 
additional protection from bad pages since random data is written 
into the header and body of each block. It has been found in 
practice that some bad blocks on the disk will pass the first test 
and fail this one. 

After all the blocks on the device have been included in a 
partition, the program displays some data about the device and asks 
whether to remount the device. Only mounted devices can be 
accessed, so if you plan to use the device, say "YES". 

If you said that you did not want to initialize the entire device, 
the program reads the device information block (which is in a 
reserved, fixed location on cylinder 0) to find what partitions are 
currently on the device. These are displayed in the order they 
appear on the disk. The first question asked is whether to rename 
the device. 



NOTE: Before renaming a device or partition it is important to note 
that every Run file on the device has incorporated in it the device 
and partition name where it was linked. If you rename the device, 
then no program on that device can be run (including the Shell, 
Login, Partition, for example). If you rename a partition, no 
program in that partition can be run. 

If you did not rename the device, you are asked which partition you 
want to modify. Type the name of one of the partitions. The 
program then asks what you want to do to the partition. You can 
split a partition into two parts, merge a partition with another, 
initia2^ 2 e a partition, or change the name of a partition. 

It is never a good idea to split a partition with files in it since 
files cannot cross partition boundaries. Any file which has blocks 
in both partitions will be destroyed. It is safe to split an empty 
partition or one that you plan to erase. The program asks how much 
of the partition to leave with the old name; the rest of the blocks 
in the partition will be put in the partition just created. The 
program will ask if you want to initialize the partition pages to 
create a new free list. This is recommended. Next, a name for the 
new partition is solicited and the pages are initialized if desired. 

It is much safer to merge two partitions together than to split one 
apart. You specify the first partition and it is joined with the 
partition which is next on the disk. This is the only time the 
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order of the partitions on the disk matters. If you want to erase 
the new, bigger partition, say that you want to initialize the 
pages. If not, then all the files on both partitions can be saved. 
Just after Partition exits, you must run Scavenger program (see 
below) on the new partition. When running the Scavenger in this 
case, be sure to tell it to rebuild the directories so that the 
directories of the two partitions can be joined together. 

Partition also can change the name of a partition. Do not change 
the name of the partition that is used in the current path since the 
default path name then becomes invalid. In addition, all entries in 
the search list that refer to the partition renamed will no longer 
work. After a rename, therefore, the system may not be able to find 
the Shell or any other programs. 

Finally, you can initialize the partition. This is a fast way to 
delete all the files in the partition. After asking whether to 
initialize the partition, the program asks whether to initialize the 
partition pages. If you answer "NO", you must use Scavenger program 
to recreate the directory immediately after running Partition. 
There are few reasons to initialize the partition without initializ- 
ing the pages . 

The Partition program can take a switch on the command line. If it 
is invoked with the /BUILD switch, then the entire device is 
partitioned. Note that the arguments must be specified on the 
command line. This is a dangerous thing to do and it is only 
recommended for command files which bring up an entire disk. The 
format for this switch is 

Partition/Build <dev> <deviceName> <Partname> <PartName> ... 

where <dev> is either "H" for the hard disk or "F" for the floppy. 
The device name is given next followed by enough partition names for 
the entire device. The partition names are used in the order 
specified so the first name will be used for the first partition on 
the disk. All partitions except the last will be the standard size 
(10080 blocks). If extra partition names are specified, they are 
ignored. If the device seems to be already formatted, the program 
requires confirmation before erasing the device. If the user 
answers NO, then partition is run the normal way asking the user all 
the questions. 
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4. The Scavenger Program. 



The Scavenger program fixes a partition on a device that contains 
useful files. It checks all files for consistency, rebuilds the 
free list, and creates a new directory structure for the partition. 
The Scavenger should only be run on devices that have already been 
initialized by the Partition program. The Scavenger checks and 
fixes some system information and then checks all files in a 
partition for consistency and recreates the free list. It can also 
recreate the directories. The Scavenger also removes bad boots. 
The Scavenger should be run whenever an inconsistency is found in 
the file system or when some program aborts and asks you to run the 
Scavenger . 

WARNINGS: 1) As with the Partition program, do not type Control-C 
CO to Scavenger after it has begun writing on the 
device. During the read pass, it is safe to ~C. If 
you type ~C after it begins rebuilding the directory, 
you may not be able to access anything in the directo- 
ry. If this happens, rerun Scavenger from another 
partition. 

2) Scavenger will not be able to recreate the directory if 
there are no free blocks in the partition. Therefore, 
if your partition is full, you must delete some files 
before running Scavenger. If you cannot delete any 
files due to a bad directory and there are no free 
blocks, then there is currently no way to rebuild the 
directory. In this case, you must initialize the 
partition, thus losing all files there. Fortunately, 
we have never seen this happen in practice. 

Scavenger program fixes one partition at a time. It is possible 
(and sometimes necessary) to scavenge partitions other that the one 
you are currently running in. It is usually safe, however, to 
scavenge the current partition. 

Scavenger program has three separate phases. In phase one, it 
checks and updates some of the system information. In this phase, 
bad boots are deleted. If a boot has been defined by MakeBoot (see 
below) but either the microcode or system code files have been 
deleted, the boot is known to be bad. The Scavenger cannot tell, 
however, if a boot file is deleted and another created in the same 
place before Scavenger is run. In this case, the boot will seem 
valid but will not work. 

During the second phase of the scavenge, the partition specified by 
the user is checked for consistency. All blocks are read and a new 
free list is generated in ascending disk order (the old free list is 
discarded). In addition, blocks that are not readable are marked as 
"bad", and if they cannot be rewritten, they are marked as 
"incorrigible" and removed from the file system. All blocks that 
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were in files containing bad or incorrigible blocks are put in the 
bad file. In addition, any malformed chains are added to the bad 
file. The user is asked for a name for this bad file in phase three 
of Scavenger . 

In phase three, the directories for the partition are completely 
rebuilt. Scavenger will delete the old directories, if desired. 
Otherwise, the old directories are marked as such and their names 
have a "$" added to the end. If there is not enough room for copies 
of all the directories in the partition to be created, Scavenger 
will crash leaving the directories only partially created. In this 
case, you have to delete some of the files in the directory and then 
rerun Scavenger. 

Before entering any name in a directory or creating a new directory, 
Scavenger first checks to make sure the name seems reasonable as a 
filename. Certain characters are not allowed in filenames. These 
include any control characters, "<" , "/" , ":», and " ". In 
addition, the name may not end with a ">" or contain ">..>" or 
">•>". If a bad name is found, or two files have the same name, 
Scavenger requests a new filename from the user. After Scavenger is 
finished, you can examine the files with bad names to see whether 
they contains any useful information. If so. rename or edit the 
files to recover the data. Otherwise, simply delete the files. 

The Scavenger in this pass also makes sure the length of all files 
are correct and allow you to specify a new length. Note that this 
refers to the stored length rather than the number of blocks in a 
file. Certain files, like directories and swap files, do not bother 
to set the length field. File lengths usually become wrong when the 
file is opened and written but not closed properly. This, for 
example, happens when a transfer is aborted. 

The Scavenger asks the user a number of questions before it begins 
processing the partition. First, it asks whether to look at the 
floppy or hard disk. It then checks that device to see how big it 
is and then asks if its choice is correct. 

When it has this information, Scavenger asks if it can make changes 
to the device in the first two phases of the program (the directory 
fixing is handled later) . This is like the "debug option" for the 
Partition program. If you answer "NO", then Scavenger checks the 
partition for errors and reports them but does not fix anything. If 
you are running Scavenger only to fix the directory, it is about 
twice as fast to answer "NO" to this question; otherwise, "YES" is a 
good idea. 

Next, Scavenger asks if it should do logical block number consisten- 
cy testing and serial number consistency testing. The header of 
every block contains information about the state of that block. The 
information includes' the count of the block in the file (is it the 
first, second, etc.) and a two-word identifier for the file the 
block belongs to. These numbers are checked for correctness if you 
answer "YES". If the Scavenger continually aborts due to FullMemo- 
r v answer "NO" to one of these n uestions* To avoid the FullMemor v 
condition on machines with 256k bytes of main memory, the default 
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for serial number cheeking is no. Just type CR to get the default 
answer. 

Then Scavenger asks if there is enough memory to do the scavenge in 

one pass. If your partition has 10080 or fewer blocks in it and if 

the screen has been shrunk (the Shell shrinks the screen when it 

knows you are running the Scavenger), then the answer is "YES". If 

your partition is bigger than 10080 blocks, then answer "NO". Three 
passes will then be used and the program will be correspondingly 
slower . 

The next question is how many retries for a suspect read. The 
default is 15. If the Scavenger aborts with' the error "block xx was 
found bad during... but was thought to be good before" or if it 
aborts during rebuilding of the directories, try rerunning the 
Scavenger with a smaller number. One is the smallest valid answer. 

If you answered "YES" when asked if Scavenger could change your 
disk, you will be asked three more questions about ways Scavenger 
might change the disk. First, Scavenger asks whether it should 
delete temporary files. Temporary files exist for swapping; all 
user files are permanent. Second, the Scavenger asks if it should 
delete old bad segments. As described above, files with bad blocks 
in them are marked as bad. If you answer "YES" to this question, 
then the bad file created by the previous scavenge of this partition 
is added to the free list. Finally, Scavenger asks if it can 
rewrite bad blocks. If a block cannot be successfully read in the 
specified number of retries, it is possible that writing new data 
onto the block will fix the problem. However, for our hard disks, 
this seems to have a small chance of fixing the problem. Therefore, 
the default answer is "NO". However, if you answer "YES", the bad 
blocks will be rewritten. If the write or a subsequent read fails, 
then the block is "incorrigible", otherwise it is "bad". If 
rewritting is not permitted, then the block is marked "incorrigible" 
as soon as the read fails. If there are only transient read errors, 
the block is left alone. 

After you answer all of the questions, Scavenger can get to work. 
The title line of the window is updated to show what Scavenger is 
working on. In addition, various cursors are used to show the 
progress of the different passes. First, Scavenger does phase one 
checking as described above, fixing any discrepancies if you allowed 
changes. If Scavenger finds a problem with the partition or device 
information blocks it cannot fix, it asks for help. If you cannot 
figure it out either, the problem may be that: 1) you specified the 
wrong device type to the first question; 2) the device is not a file 
system device (e.g. a FLOPPY floppy); 3) the device has not been 
initialized; or 4) the device has been messed up beyond repair. 
Unfortunately, the only fix in this case is to re-partition the 
device from scratch. 

After the device and partition information checks out, Scavenger 
displays a list of the partition names and asks which one it should 
work on » Type the name of the partition to be scavenged. Next, 
Scavenger will display some information about the specified parti- 
tion. The values are those stored in the partition information 
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block before the scavenge. Now Scavenger makes a read pass through 
the partition building tables' of each block's next and previous link 
(this is the data usually visible in the lower portion of the 
screen) . The pass is done in eight parts for efficiency. There- 
fore, the Scavenger cursor goes down the screen eight times before 
the next step. The tables built by Scavenger are now checked for 
consistency, and the cursor changes to show that checking is in 
progress. If any loops are found, Scavenger breaks the loops and 
blinks the screen to show that a loop has been fixed. Afterwards, 
if changing the device is allowed, the Scavenger rebuilds the free 
list. This requires a write pass for all blocks on the free list 
and a write cursor is displayed. If any bad blocks were found, some 
more reads and writes are necessary to make the bad blocks into a 
well-formed chain. After this pass, Scavenger writes the new 
partition information block. 

Next, the directory building pass is started. Scavenger asks 
whether it should rebuild the directory. Sometimes it recommends 
that you do this, otherwise there is no default. If you suspect 
there is a problem with the directories and if there are enough free 
blocks, answer "YES". The old directories will be deleted, if you 
so specify. Otherwise they are saved for later inspection. A "$" 
is appended to the end of their names and their file type is changed 
to ExDirFile (directories all have the type DirFile) . New director- 
ies are then created whenever needed. This means that empty 
directories are not recreated. The old directories are just files 
that you can delete after the scavenge. 

Note: This scheme makes it easy to recover from overwriting or 
deleting a directory since the directory reappears after a scavenge. 

As described above, the Scavenger checks and allows fixing file 
lengths if desired. For each file, it checks the stored length with 
the actual number of blocks in the file. If they do not match, it 
allows you to specify a new stored length. This can be any value, 
but making it bigger than the number of blocks in the file is not 
recommended. The default for the stored length is the number of 
blocks in the file. The Scavenger does not check the lengths for 
directory files or files with their type field set to "SWAPFILE." 

Each file has a table which points to each logical block of the 
file. This allows the file system to find a random logical block 
without searching down the chain from the file start. This table is 
called the "Random Index Table." Scavenger, as part of the directory 
building phase, can rebuild the random indices for all files. There 
is a separate question for this with a default answer of "NO". 
There is usually no reason to rebuild the indices unless Scavenger 
asks you to. Building the random indices for large files takes a 
long time. 

If a bad file was created, Scavenger will ask for a name for the 
that file at the end of the directory building phase. If you allow 
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then type and edit it as a normal file. In this way some useful 
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5. MakeBoot. 

The MakeBoot program creates new systems. An overview of its use 
appears in the manual "How To Make a New System". The "PERQ 
Introductory User Manual" describes the booting process. MakeBoot 
creates a boot file taking a stand alone run file (such as a system) 
and then associates this boot file with a letter. The lower case 
letters are assigned to the hard disk and the upper case letters are 
assigned to the floppy disk. The default that is used when no keys 
are held down is lower case "a". Boot letters can be freed of the 
associated boot by deleting the system and/or interpreter boot 
files. 

Any program can be made to work "stand-alone" (so it can be booted) 

by initializing various modules as the System program does. It is 

generally not necessary or desirable to have programs other than the 
System be stand-alone. 

The run file name given to MakeBoot determines on which device and 
partition the boot will be. MakeBoot takes the directory part of 
the file name and uses that to determine on which device and 
partition to put the boot. Therefore, to make a boot somewhere, 
first copy the run file to that partition. After specifying the run 
file, Makeboot asks for the configuration file. This file tells 
MakeBoot which System modules are swappable. The format of the file 
is : 

Module-name swappability 

where swappability is "sw" for swappable, "um" for unmovable 
(stronger than unswappable) , or "us" or blank for unswappable. The 
default is unswappable so only the modules in your system that you 
want to be swappable or unmovable need to be listed." The default 
system config file (named System. nn . Config) is: 

*SAT* UM 
*SIT* US 
*Cursor* UM 
*Screen* UM 
*Font* US 
*I0* UM 
System SW 
Stream SW 
Writer SW 
IOErrMessages SW 
Loader SW 
Reader SW 
Perq_String SW 
Screen SW 
FileSystem SW 
Code SW 

GetTimeStamp SW 
FileDefs SW 

M~~~.~,» PIT 

ncuiui y on 

10 In it SW 
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Run Read SW 
FileDir SW 
Scrounge SW 

The system data segments that the hardware uses are required to be 
unmovable, the data used by software (*SIT* and *F0NT*) are required 
to be unswappable, and everything else that is not used by the 
swapping system itself can be swappable . 

The next question MakeBoot asks is whether to write the boot 
microcode onto the device. No matter how many boot letters are 
defined for a device, there is only one set of boot microcode so 
this only needs to be written when putting the first boot onto a 
device. The standard boot microcode files are "SysB" and "Vfy" . 

There are two files associated with each boot letter. The system 
boot file is Pascal and the interpreter boot file is microcode. The 
system boot file is created by MakeBoot by reading the supplied run 
file. The standard microcode is usually used with all boot files. 
It is used by MakeBoot to create the interpreter boot file if you so 
specify. If you have already created a boot for the current letter 
and you have not changed microcode, it is not necessary to make a 
new interpreter boot file, but it never hurts to do so. If you want 
to load the standard microcode and it is found by MakeBoot, type, CR 
when it asks for an interpreter microcode file. 

Included in the system code is the default character set font. 
MakeBoot looks for the default font (currently, "Fix13.kst") in all 
the search paths. If it is not found, you will have to supply a 
font file name. 



Note: For the Editor and certain other programs to work, the default 
font must be fixed width and thirteen bits high and nine bits wide. 

MakeBoot puts the output boot files wherever you specify but it is 
important that the interpreter and system boot files be in the same 
partition. The device and partition in which the boot file is 
created will be the default path after the boot. This means that 
there must be at least a "Login .nn .run" and a "Shell ,nn .run" (where 
"nn" is the version number of the system run file) , in the root 
directory of the partition. It doesn f t matter if the boot files are 
in a subdirectory in the partition; the run files mentioned above 
must be in the Root directory. 

The MakeBoot program will take a switch on the command line. If it 
is invoked with the /BUILD switch, all arguments are specified on 
the command line and the user is not asked any questions. The 
format for this switch is: 

MakeBoot [ <dir>]System .<nn>/Build <bootKey> 

where <dir> is an optional directory, <nn> is the system version 
number and <bootKey> is the character to boot from. Makeboot then 
uses the default answers for all questions. 
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6. FixPart. 



FixPart is an experimental program for fixing the Device and 
Partition information blocks. It is not recommended that customers 
try to use it without assistance. Unlike th"e other programs 
described above, FixPart is only partially automatic and can cause a 
lot of damage. Unfortunately, it is currently the only way to fix 
bad partition and device information blocks. 

Note: It is very rare that the device and partition information 
blocks get broken, so Scavenger should always be run first to see if 
the problem is actually elsewhere. 

FixPart first asks if you are sure you want to run the program- 
Next, it asks for the device type. It then goes through and checks 
each partition for consistency with the other partitions and with 
the device information block. If a name is dubious it asks if it is 
valid or not. After all partitions are checked, the program gives a 
summary of the errors. If none were found, then it exits; 
otherwise, you can specify new start and end addresses for the 
partition and fix the names. 

If the device information block is not writeable, then you have to 
reformat the entire device and, unfortunately, lose all the data on 
it. If one of the partition information blocks is not writeable, 
then'you may be able to save some information by using the partition 
program to join the partition with the bad information block to the 
partition before and then scavenging. If it is the first partition, 
however, your device will have to be reformatted. 
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authorization of Three Rivers Computer Corporation. 

The information in this document is subject to change 
without notice and should not be construed as a commitment 
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document . 

Three Rivers Computer Corporation will make every effort to 
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The XY registers (256 registers x 20 bits) form a double ported 
file of general-purpose registers. The X port outputs are multi- 
plexed with several other sources (the AMUX) to form the A input to 
the ALU. The Y port outputs, multiplexed with an 8- or 16-bit 
constant via the BMUX, form the B input to the ALU. The ALU outputs 
(R) are fed back to the XY registers as well as the memory data 
output and memory address registers.. Memory data coming from the 
memory is sent to the ALU via the AMUX. The 10 bus (IOB) connects 
the CPU to 10 devices. It consists of an 8-bit address (IOA) which 
is driven from a microword field and a 16-bit bidirectional data bus 
(IOD) which is read via AMUX and written from R. 

Opcodes and operands that are part of the instruction byte 
stream are buffered in a special 8x8 RAM (the OP file) . The OP 
file is loaded 16 bits at a time from the memory data inputs. The 
output of the OP file is 8 bits wide and can be read via AMUX or can 
be sent to the micro-addressing section for opcode dispatch. The 
read port of the OP file is addressed by the 3-bit BPC (Byte Program 
Counter) . 

A shift matrix (SHIFT), which is part of the special hardware 
provided for the RasterOp operator, can be accessed by loading an 
item to be shifted via the R bus, and reading the shifted result on 
AMUX. 

A 16-level push down stack (ESTK) is written from R and read on 

AMUX. The stack is used by the Q-code interpreter to evaluate 

expressions. BPC and the microstate condition codes can be read as 
the Micro State Register (USTATE) via AMUX. 
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Micro Instruction Format 

8 3 1 t 1 *+ <z *t o • *t *t 
+ + + +_+_+_+ +--+ + + +-- — + 
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+ + + +_+_+-+ h + + + + + 

Field Width Use 

X 8 Address for X port of XY. Also address used to 

write XY. 

Y 8 Address for Y port of XY. Also low 8 bits of 

constant . 

A 3 AMUX Select: 

SHIFT 

1 NextOp 

2 IOD 

3 MDI Memory Data Inputs, 

AMUXC19..16] := 
AMUXE15..00] := MDC15..00] 

4 MDX Memory Data Input extended 

AMUXC19..16] :=MD[03..00] 
AMUXM5..00] := 

5 USTATE 

6 XY (RAM) 

7 ESTK 

B 1 BMUX select: = XY[Y] , 1 = Constant. 

W .1 Write: XY[X] := R if W = 1. 

H 1 Hold: If set, do not allow 10 devices to access 

memory. Also used with JMP field to modify 
address inputs. 

ALU 4 ALU function: 
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Function: Controls usage of SF and Z fields. 
F SF use Z use 



SF 



Special Func . 

1 Memory Control 

2 Special Func . 

3 Long Jump 



Constant/Short 
Short Jump 
Shift Control 
Long Jump 



Jump 



Special Function: Upper 4 bits of address for 
long jump and memory control functions (see F) 
When used as Special Function: 



CND 






Long Constant 


1 


Shi ft On R 


2 


StackReset 


3 


TOS := (R) (Top Of 


4 


Push (ESTK) 


5 


Pop (ESTK) 


r 

' 


CntlRasterOp := (Z) 


7 


SrcRasterOp := (R) 


10 


DstRasterOp := (R) 


11 


WidthRasterOp := (R) 


12 


LoadOp (OP := MDI) 


13 


BPC := (R) 


14 


WCS[15-.00] := (R) 


15 


WCSC31..16] := (R) 


16 


WCSC47..32] := (R) 


17 


I0B Function 



ESTK) 



Low 8 bits of Jump Address, high 8 bits of Constant, 
Shift Control (see F) , or IOB address. 

Condition (what to test during conditional jump) : 

True - always jump 

1 False - never jump 

2 IntrPend - interrupts pending 

3 unused 

4 BPC[3] - OP file is empty 

5 CI 9 - no carry out of bit 19 of the ALU 

6 Odd - ALU bit 

7 ByteSign - ALU bit 7 

10 Neq - not equal to 

11 Leq - less than or equal to 

12 Lss - less than 

13 OverFlow - 16 bit overflow in the ALU 

14 Carry - carry out of bit 15 of the ALU 

15 Eql - equal to 

16 Gtr - greater than 

17 Geq - greater than or equal to 
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JMP 4 Jump Control: See AMD 2910 documentation for 

further details. 

CIA = Current Instruction Address. 

NIA = Next Instruction Address. 

Addr = SF,,Z (Long) or CIA,,Z (Short). 

ZAddr = Z( UpperBits) , , 0, , Z(LowerBits) . 

S = internal address register. 

CSTK = top of five level call stack. 

Push = push CIA+1 onto call stack. 

Pop = pop call stack. 

Code Name Pass Fail 






Jump Zero 


NIA:=0 


NIA:=0 


1 


Call • 


NIA:=Addr 
Push 


NIA:=CIA+1 


2 


Nextlnst/Rev 


iveVictim 






H = 


NIA:=0P 


NIA:=0P 






+ZAddr 


+ZAddr 




H = 1 


NIA:=Victim 


NIA:=Victim 


3 


Go To 


NIA:=Addr 


NIA:=CIA+1 


4 


PushLoad 


NIA: = CIA+1 


NIA:=CIA+1 






Push 


Push 






S:=Addr 




5 


CallS 


NIA:=Addr 


NIA:=S 






Push 


Push 


6 


Vector/Dispa 


tch 






H = 


NIA:=Vector 
+ZAddr 


NIA:=CIA+1 




H = 1 


NIA:=Dispatch 
+ZAddr 


NIA:=CIA+1 


7 


GotoS 


NIA:=Addr 


NIA:=S 


10 


RepeatLoop 








if S <> 


NIA:=CSTK 


NIA:=CSTK 






S:=S-1 


S:=S-1 




if S r 


NIA:=CIA+1 


NIA:=CIA+1 






Pop 


Pop 


11 


Repeat 








if S <> 


NIA:=Addr 


NIA:=Addr 






S:=S-1 


S: = S-1 




if S = 


NIA:=CIA+1 


NIA:=CIA+1 


12 


Return 


NIA:=CSTK 
Pop 


NIA:=CIA+1 
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13 


JumpPop 


NIA:=Addr 
Pop 


NIA:=CIA+1 


14 


LoadS 


NIA:=CIA+1 


NIA:=.CIA+1 






S:=Addr 


S:=Addr 


15 


Loop 


NIA:=CSTK 
Pop 


NIA:=CIA+1 


16 


Next 


NIA:=CIA+1 


NIA:=CIA+1 


17 


Three Way Branch 








if S <> 


NIA:=CIA+1 
Pop 


NIA:=CSTK 






S:=S-1 


S:=S-1 




if S = 


NIA:=CIA+1 


NIA:=Addr 






Pop 


Pop 



The Z field is used for many things: as part of a jump address, 
the upper 8 bits of a constant, Shift Control, and as an IOB 
address. The F field decodes do not necessarily enforce restric- 
tions on the use of the Z field, they merely enable some of them. 
In particular, B = 1 , SF = , and F = or 3 selects a long constant 
using the Z field. When F <> 2, the Z field is used for a jump 
address. When SF = 17 and F = or 3, the Z field is used for an 
103 address. When F - 2, the Z field is loaded into the Shift 
Control register. These are the only specific actions taken by the 
hardware that affect the usage of the Z field. The hardware does 
nothing to prevent the Z field from being used for several things at 
once. For example, it could be used for a long constant and a jump 
address at the same time, or it could be used as an 10 address and a 
jump address at the same time. The assembler, however, will flag an 
error if the programmer tries to load two different values into the 
same microinstruction field . 



Constants 

Constants can be 8 or 16 bits wide 
the ALU is a constant. If F = or 3 and 
form a 16 bit constant. If SF <> and 
bit constant. 



If B = 1, 


the B input to 


SF = 0, the 


Y and Z fields 


F <> or 3 


then Y is an 8 
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OldCarry 

OldCarry ^ in ALU functions 15 and 17; 3.S the carry irom the 
immediately preceeding microinstruction, it is used for multiple 
precision arithmetic. 

Condition C odes 

All ALU related condition codes test the result of the ALU 
operation from the previous micro cycle. Thus the normal sequence 
is to perform an ALU operation and test its result in the next 
microinstruction. For example, comparison of two registers A and B 
could be done this way: 

A - B; 

if Gtr Goto(Label); I Jumps if A > B 

All ALU tests with the exception of C 1 9 test the lower 16 bits 
of the ALU. These are intended for data comparisons. After a 
subtraction, these condition codes compare the two operands. After 
other operations, these condition codes compare the 16-bit ALU 
result against zero. 

C19 is designed for unsigned address comparisons. Assuming 
that A and B are registers containing 20-bit addresses and T is a 
temporary register, the following code fragments show how to compare 
A and B. 

A - 1.; 

if CI 9 Goto(Label); I Jumps if A = 0, doesn't "jump if A <> 

T := A; 

T := T - B; 

T - 1; 

if C19 Goto(Label); ! Jumps if A = B, doesn't jump if A <> B 

A - B; 

if C19 Goto(Label); ! Jumps if A < B, doesn't jump if A >= B 

B - A; 

if CI 9 Goto(Label); ! Jumps if A > B, doesn't jump if A <= B 



16 


Fetch 


17 


Store 


12 


Fetch4 


13 


Store4 


10 


Fetch4R 


11 


Store4R 


14 


Fetch2 


15 


Store2 
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Memory Control 

The memory system cycles in 680 ns (exactly 4 microcycles) . 
Microcycles are numbered starting at (to, t1, t2 and t3) . 
Requests must be made in a particular cycle (which cycle depends on 
the type of request). If a memory request is made in the wrong 
cycle, the processor will be suspended until the correct cycle. In 
some contexts, however, a request made in an improper cycle will be 
ignored — these contexts are explained below. There are 8 types of 
memory references, coded into the SF field when F = 1. 

SF Type Description 

Fetch 1 word from Memory. 

Store 1 word into Memory 

Fetch 4 words (0 mod 4 address) 

Store 4 words (0 mod 4 address) 

Fetch 4 words, transport in reverse order 

Store 4 words, transport in reverse order 

Fetch 2 words (0 mod 2 address) 

Store 2 words (0 mod 2 address) 

In the following discussion of the memory controller, the terms 
"Fetch" and "Store" are used for the memory functions which fetch or 
store exactly one word. The generic terms "fetch type" and "store 
type" are used for any type of fetching or storing memory reference. 

The address for all memory references comes from R. For all 
fetch type references, the address (and the request itself) are 
latched at t3 and data is available from MDI or MDX (A = 3 or 4) at 
t2. If MDI or MDX is used during a to or t1 following a fetch type 
memory reference, the processor is suspended until t2. 

Any address may be used with a Fetch, and the memory word may 
be read during any cycle from t2 until the following t1. 

The address for a Fetch2 must be even (double-word aligned). 

If it is odd, the low-order bit of the address is ignored. After a 

Fetch2, the first word must be read at t2, and the second word must 
be read at t3. 

The address for a Fetch4. must be quad-word aligned . If it is 
not quad-word aligned, the two low-order bits are ignored. After 
the Fetch4, the first word must be read at t2, and the succeeding 
words must be read at t3, to, and t1. 

Any address may be used with a Store. The address and Store 
command are given in a t2 cycle and the data to be written is 
supplied on R in the following t3. 

The address for a Store2 must be even (double-word aligned). 
If it is odd, the low-order bit of the address is ignored. The 
address and Store2 are given in a t3 cycle, and the data is supplied 
on R in the following to and.tl. 
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The address for a Store4 must be quad-word aligned. If it is 
not quad-word aligned, the two low-order bits are ignored. The 
address and Stored are given in a t3 cycle, and the data is supplied 
in the next four cycles (tO, t1, t2 and t3) . 

The Fetch4R and Store4R types are identical to the Fetch4 and 
Store4 references except that word 3 of the quad word is received or 
sent first and word last. (This is generally only useful for 
RasterOp so that it can do left to right as well as right to left 
transfers . ) 

Here are examples of each type of reference and how they are 
coded : 



Fetch: 



Fetch2: 



Fetch4: 



Fetch4R 



Store : 



Store2: 



Store4 



MA := Addr, Fetch; 

• • • 

• * • 

Data := MDI; 

MA :r Addr, Fetch2; 



DataO := MDI; 
Datal := MDI; 

MA :r Addr, Fetch4; 



DataO 


:= MDI 


Datal 


:= MDI 


Data2 


:= MDI 


Data3 


:= MDI 



MA := Addr, Fetch4R; 



Data3 := MDI' 
Data2 := MDI; 
Datal := MDI; 
DataO := MDI; 




MA :: 

MDO , 


= Addr, Store; 
:= Data; 


MA :: 
MDO : 
MDO . 


: Addr, Store2; 
= DataO; 
'= Datal; 


MA : = 

MDO 

MDO 

MDO 

MDO 


: Addr, 5 
:= DataO; 
:= Datal; 

= Data2; 

= Data3; 


>tore4; 



(t3) 


(tO) 


(t1) 


(t2) 


(t3) 


(to) 


(t1) 


(t2) 


(t3) 


(t3) 


(to) 


(tl) 


(t2) 


(t3) 


(to) 


(t1) 


(t3) 


(tO) 


(t1) 


(t2) 


(t3) 


(to) 


(t1) 


(t2) 


(t3) 


(t3) 


(to) 


(t1) 


(t3) 


(tO) 


(tl) 


(t2) 


(t3) 
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Store4R: 



MA :: 


: Addr, Store4R; 


(t3) 


MDO ■ 


= Data3; 


(to) 


MDO 


■= Data2; 


(t1) 


MDO 


:= Datal; 


(t2) 


MDO 


:= DataO; 


(t3) 



The 10 system can request memory cycles at any time. The 
memory system gives priority to the 10 system so that if both the 
processor and the 10 system make memory requests, the 10 is served 
first while the processor is delayed. The Hold bit, if set, locks 
out 10 requests while it is set. To be effective, Hold must be 
asserted in a t2. This is necessary only when doing overlapped 
memory references. See the high performance rules below. 

Combinations of memory references are tricky. There are a few 
rules which, if followed, will never let you go wrong, but they may 
preclude some clever twist of microcoding to save some cycles. The 
simple rules are: 

1) Never start a memory reference after a fetch type reference 
until you have taken all the data. 



2) Never start a memory reference during 
which follow a store type request. 



the four instructions 



The full rules are complicated, but to achieve high-performance 
you need to consider them. The following rules define the way the 
memory controller treats memory requests. 

1) After a Fetch or Fetch2 (in t3) , any memory reference in to or 
t1 is ignored. A Store specified in the t3 will start 
immediately, but all others will abort until the correct time. 



2) Fetch4 and Fetch4R 
the exception that a 



follow the 
Store4 (in 



rules for Fetch and Fetch2 with 
the same direction — forward or 



reverse) can 
RasterOp . 



be specified in t1, but this is only used for 



3) After a Store (in t2) , 
ignored. References 
correct cycle. 



any memory reference in t3 or to is 
started in t1 are aborted until the 



4) After a Store2, Store4 or Store4R (in t3) , any memory reference 
in to through t3 is ignored. Memory references started in to 
are aborted until the correct cycle. 

5) To be effective, Hold must be asserted in a t2. You must be 
careful about aborts caused by using MDI in the wrong cycle — 
you may be aborted past the t2, causing the Hold to be ignored. 
You may not specify Hold too often--you must allow an 10 
reference at least once in every 3 memory cycles. 
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6) After a Fetch, MDI is valid from t2 through the following t1 
(four full cycles). For Fetch2, Fetch4, and Fetch4R, each MDI 
is valid for a single microcycle. 

Following these rules, we can construct many interesting 
overlapped memory requests. Note that in the following examples, 
Hold is always asserted in a t2. A Fetch ... Store sequence is an 
exception — you need not use Hold, but it doesn't hurt performance, 
so we assert it for consistency. 

Indirect fetches: 



MA := Addr, Fetch ; 
instruction or Nop; 
instruction or Nop; 
MA : = MDI, Fetch<n>, 

• • • 

Data := MDI; 



Hold; 



(t3) 

(to) 

(tl) 
(t2, 

(t2) 



must be explicit 
must be explicit 
t3) any type of fetch 



Hold is asserted in t2 so that 10 requests do not pre-empt 
the processor. The instruction "MA := MDI, Fetch<n>, 
Hold;" first tries to execute in t2, but is aborted until 
t3 because it contains a fetch. The MDI is still valid 
because MDI is valid from t2 to the following t1 after a 
Fetch. 



MA := Addr, Fetch; 
instruction or Nop; 
instruction or Nop; 
instruction, Hold; 
MA := MDI, Fetch<n>; 

• • • 

Data := MDI; 



(t3) 
(to) 
(t1) 

(t2) 
(t3) 

(t2) 



must be explicit 
must be explicit 

any type of fetch 



Again, Hold is asserted in t2. Note that this differs 
from the previous example in that the Hold and Fetch<n> 
are not done in the same instruction. These two examples 
show that for indirect fetches, the two fetches may be 
separated by two or three other instructions. 



Indirect stores: 



MA := Addr, Fetch; 
instruction or Nop; 
instruction or Nop; 
MA := MDI, Store, Hold; 
MDO := Data; 



(t3) 
(to) 
(tl) 
(t2) 
(t3) 



must be explicit 
must be explicit 



In this case, the MDI, the Store, and the Hold all execute 
in t2. 
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MA := Addr, Fetch2; (t3) 

instruction or Nop; (to) 

instruction or Nop; (t1) 

MA := MDI, Store, Hold; (t2) 

MDO := MDI; (t3) 



must be explicit 
must be explicit 



In this case, the first fetched word is used as 
address, and the second is used as data to be stored. 



MA := Addr, Fetch; 
instruction or Nop; 
instruction or Nop; 
MA := MDI, Store<n>, 
MDO := Data; 



Hold; 



(t3) 

(to) 

(t1) 

(t2,- 

(t0) 



an 



must be explicit 
must be explicit 
t3) any except Store 



Hold is asserted in t2 so that 10 requests do not pre-empt 
the processor. The instruction "MA := MDI, Store<n>, 
Hold;" first tries to execute in t2, but is aborted until 
t3 because it contains a store. The MDI is still valid 
because MDI is valid from t2 to the following t1 after a 
Fetch . 



MA := Addr, Fetch; 
instruction or Nop; 
instruction or Nop; 
instruction, Hold; 
MA := MDI, Store<n>; 
MDO := Data; 



(t3) 

(to) 
Ctl) 
(t2) 
(t3) 

(to) 



must be explicit 
must be explicit 

any type except Store 



Again, Hold is asserted in t2. Note that this differs 
from the previous example in that the Hold and Store<n> 
are not done in the same instruction. These two examples 
show that for indirect stores, the Fetch and the Store<n> 
may be separated by two or three other instructions. 



Copy operations: 



MA := Addrl , Fetch 
instruction or Nop 
instruction or Nop 
MA := Addr2, Store, 
MDO := MDI; 



Hold; 



Ct3) 

(to) 

(t1) 
(t2) 
(t3) 



must be explicit 
must be explicit 



A word is copied from one memory location to another. 

Unfortunately, two or four word copies are not possible 

because the times when data must be read and written are 
different for the fetches and stores. 
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Opcodes and operands 

The OP file contains a 4-word sequence of instruction bytes. A 
quad-word address is contained in a XY register (UPC), and the 8 
bytes pointed to by UPC are loaded into the OP file. The lower 3 
bits of the byte address (byte within the quad word) are kept in 
BPC, a hardware register. BPC addresses the OP file to choose a 
byte. BPC is actually a 4-bit counter. It is incremented after 
each a byte is taken out of the OP file by Nextlnst (JMP=6, H=0) or 
NextOp (A=1). The 4th bit of BPC (BPC[33), which is the "overflow" 
of the counter, is testable via a jump condition and indicates that 
all bytes in OP have been used. 

The NextOp function (A=1) gets the next byte out of the 
instruction byte stream for use as an operand. The assembler 
automatically adds an "If BPC[3] GoTo( Refill) " jump clause. If BPC 
overflows, then control will go to Refill which increments UPC by 4, 
set BPC to 0, and starts a Fetch4 to the OP file. The special 
function LoadOp must be executed in the t1 after the Fetch4 to cause 
the Op file to be loaded with the data coming on MDI . Refill must 
then jump back to the instruction which needed the byte so that 
instruction may be re-executed. The instruction which executes 
NextOp must be capable of being executed twice (once when BPC 
overflowed and again when it is re— executed after Refill) . This 
precludes instructions such as "R := NextOp + R" . 

In order for Refill to get back to the instruction which needs 
to be re-executed, the address of the failed NextOp is saved in a 
hardware register (Victim) if NextOp is executed when BCP[3l is set. 
The last instruction in Refill is coded with ReviveVictim (JMP=2, 
Hr1), which sends control back to the "failed" NextOp. 

BPC can be set without re-loading the OP file, and so the 
current quad word can be re-read without fetching it from memory a 
second time. 

The Nextlnst jump enables a byte of the OP file (which is 
inverted for Nextlnst) into the Addr input of the micro-sequencer. 
The inverted byte is shifted left by 2 bits and OR-ed with ZAddr, 
sending control to address ZAddr + (0P» * 4) . If BPC[3] is true, 
OP is forced to 377, sending control to location ZAddr, which is 
another version of Refill. This version of -Refill also does the 
Fetch4 to the OP file, zeroes BPC, increments UPC by 4, and does the 
LoadOp, but then repeats the Nextlnst instead of returning via 
ReviveVictim. 

To speed up the execution of Refill, the LoadOp Special 
Function loads all 4 words via hardware. The LoadOp should be given 
in the tl following the Fetch4. The instruction which follows the 
LoadOp can go back to the Nextlnst/NextOp since the first byte is 
quaranteed to be in. The three remaining words arrive and are 
placed in OP by hardware without further microcode assistance. If 
BPC is set to a non-zero value (to start reading in the middle of 
the quad word) , the Refill code must wait until the correct byte is 
in the OP file. 
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Shift Control 

The PERQ shifter can rotate a 16 bit item to 15 places and 
apply a mask to the shifter outputs. To use the shift hardware, the 
Z field of the instruction can be coded with the type of shift to be 
done with the F field set to F = 2. Coding of the shift control 
uses two 4 bit nibbles (shift control is inverted in the Z field): 

Shift Control Shift 

0-17,0 1 bit field starting at bit 0-15 

0-16,1 2 bit field starting at bit 0-14 

0-15,2 - 3 bit field starting at bit 0-13 

• • • 

0-2,15 14 bit field starting at bit 0-2 

0-1,16 15 bit field starting at bit 0-1 

0-17,17 Left shift 0-15 

10-17,16 Rotate Right 8-15 

10-17,15 Rotate Right 0-7 

0-17,17-0 RightShift 0-15 

The item to be shifted is placed on R, and the shifted and masked 
result can be read via SHIFT (A =0) on the next instruction. The 
shift control logic keeps the last value loaded so that the shifter 
can shift a succession of words without respecifying the s-hift 
control function. The shift outputs always have the shifted value 
of what was last on R. 



Shift OnR 

The ShiftOnR special function allows a shift function to be a 
variable. The shift control is obtained from the R bus and thus can 
be a data item. The usage sequence is: 1) Put the shift control 
(univerted) 

on R and execute ShiftOnR, 2) Put the item to be shifted on R, and 
3) Read the shifted result on SHIFT. 



Expression Stack 

The expression stack is used to evaluate expressions. Items 
are pushed on the stack by placing them on R and using the Push 
special function: "T0S := Data, Push". Items can be popped off the 
stack with the Pop special function. The top of the stack can be 
written without pushing or popping with the "T0S := Data" special 
function. The value on the top of the stack can be read at any time 
from T0S (A = 7). The stack is 16 levels deep. The stack can be 
reset (no items on the stack) by the StackReset special function. 
Stack empty can be read as a bit in USTATE. 
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Input/Output Bus 

IOB is the input/output bus for PERQ. The IOB is a 16-bit 
bi-directional data bus plus a 7-bit address bus. The addresses are 
supplied on the Z Field. The eighth bit of the Z field indicates 
the direction of transfer (1=write, 0=read) . To read an 10 
register, set SF = 1 and F = or 3. The 10 register is latched in 
the processor such that a succeeding microinstruction can read it 
from IOD (A = 2). 10 registers can be written by putting a data 
value on R, putting the appropriate address in Z, and coding the IOB 
special function ( SF = 1, F = or 3). 



Jumps 

A jump needing an address normally gets it from the Z field. 
Since Z is only 8 bits wide and the control store is 4K, another 4 
bits of address are needed. Short jumps branch to a location on the 
same 256-word page as the current microinstruction (CIA). To go to 
an arbitrary location, the F field can specify long jump (F = 3) 
which uses the SF field for the upper 4 bits of address. 

The address for jumps might not come from the Z (and SF) . 
Other sources for jump addresses are: 1) The S register (which is 
internal to the micro-sequencer), 2) A five level call stack (also 
internal to the micro-sequencer) which is pushed for a Call and 
popped for a Return, 3) The current instruction address plus 1, and 
4) The Victim register. 

There are three jumps which are multi-way branches. The three 
are: 1) Nextlnst, which is a 256-way branch based on a byte from 
the OP file; 2) Dispatch, which is a 16 way (or fewer) branch on the 
lower 4 bits of the SHIFT outputs; and 3) Vector, which branches to 
1 of 8 micro-interrupt service routines. For all of these branches, 
the Z field of the micro-instruction supplies the other bits of the 
address. For Nextlnst, the resulting address is: 

00000000 
ZZPPPPPPPPZZ 
767654321010 

which results is a 256 way branch with a spacing of 4 instructions. 
For Dispatch, the address is: 

ZZZZZZSSSSZZ 
76543 2321010 

which also results in a spacing of 4 instructions. The Vector jump 
uses the outputs of the micro-interrupt priority encoder (V) , which 
determines the highest priority micro-interrupt condition. The 
address is: 



_ m _ 



PERQ Micro-Programmer's Guide 08 Feb 82 

ZZZZZZ-VVVZZ 
76. 5 43202. 1 01 

which also has a spacing of four instructions. 



Interrupts 

The hardware implements a microlevel interrupt which is used to 
allow the microprocessor to serve 10 devices. There are (a maximum 
of) v"8 interrupt requests which . are assigned priorities by the 
hardware. When any of the interrupt requests is asserted, the 
branch condition IntrPend will succeed. The intended usage of this 
feature is that at convenient places in the microcode an instruction 
which has "If IntrPend Call(VecSrv) " is used. If any interrupts are 
pending, control will pass to VecSrv which should contain a Vector 
jump to send control to ZAddr + Vector*4 in the control store. The 
address of the interrupted instruction is on the call stack, and the 
interrupt microcode can serve the device and return like a subrou- 
tine would. 



USTATE 

The USTATE register contains various interesting items packed 
in a single word. The USTATE register (A=5) looks like: 



19 




16 15 12 11 9 8 7 


6 5 ' 


4 3 







1 
1 





i BMUX 19:16! unused ! SE I N ', 


C| Z! 1 


v\ 


BPC 


1 


BPC 




Byte Program Counter 










N 




Negative (ALU result < 0) 










Z 




Zero (ALU result = 0) 










C 




Carry (ALU carry out of bit 15) 










V 




Overflow (ALU overflow occured) 










SE 




ESTK Empty (inverted data — = 


empty) 








BMUX 


19 


:16 Upper 4 Bits of BMUX, used 


to read 


bits 


19: 16 





a register (inverted data). Do it this way: 
not UState(Register) , Field(14,4); 
Result := Shift; 
! Result[3:0] := Register [ 1 9 : 16] 



- 16 - 



PERQ Micro-Programmer's Guide 



08 Feb 82 



Syntax of Micro-Programs 

This describes the syntax of Perq micro-programs recognized by 
the PrqMic assembler. The syntax is described with a meta-language 

nal 1 Pfi FRMF f pyfonHpH RMhM TVio f«1 1 ^ wi ^ cr mo^a ctr^K^i r. ^^^ no ~^ 

"- — — -».—»» ij*^i«A. \^Aw-ii>-iCv^ i^nt / • iiJC x-Jo.j.Owo.ng, uieoa— ojuiu\-»_lo a i S u56Q • 

* f - surround literal text. 
! - separate alternatives. 

[ ] - surround optional parts. 
{ } - surround parts which may be repeated 

zero or more times. 
( ) - are used for grouping. 

- ends a description. 



name = letter {letter ! digit} . 

number = ['2#' J '8# f ! *10#' i '#' ] digit {digit} . 

constant = name ' number . 

register = name . 

label = name . 

empty = . 



Microprogram 
Instruction 



= {Instruction ';'} •end' ';' . 
= {label ':'} Field {',♦ Field} . 



Field = empty 
Pseudo 

Pascal St yleCon st ant 
{Result ' : = '} ALU 
Jump 
Special . 

Pseudo = 'Define 1 '(' name ',' constant ')' 

'Constant' '(' name ',' constant ')' 

'Opcode' '(' constant ')' 

'LoC '(' constant ')' 

'Binary' 

'Octal' 

'Decimal ' 

'Nop' 

'Case' '(' constant ',' constant ')' 

'Place' '(' constant ',' constant ')' . 



PascalStyleConstant = name ' r » constant . 
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Result = register | SpecialResult 



SpecialResult 



'TOS' ! 'MA' 
' SrcRasterOp' 
' Wid Raster Op' 



'MDO' ! 'BPC 
'DstRasterOp' 



ALU 



= [» 



not'] 



Amux 
Amux 
Amux 
Amux 
Amux 



Op 



+ 



( Amux i 
[ 'not'] 
[ 



Bmux) 
Bmux 



Bmux 

Bmux ['-' 
'amux' Bmux 
'bmux N Bmux . 



'OldCarry'] 
'OldCarry'] 



Amux = register ! 'Shift' i 'NextOp' 

| »MDI» ', 'MDX' ! 'TOS' 

! 'UState' ['(' register ')'] . 

Bmux = register ! constant . 



IOD 



Op = 'and' J 'or' ! 'xor' ! 'nand' ! 'nor' 
i 'xnor' . 

Jump = [Test] Goto ['(' Addr ')'] . 

Test = 'If Condition . 



Condition 



'True' i 
'C19 1 ! 



'False' ! 
' IntrPend' 



'BPCC3] • 
! 'Odd' 



•ByteSign' 
'Gtr' ! 
» Carry' 



i 'Eql' 
'Geq* ! 'Lss 
! 'OverFlow' 



'Neq' 
i 'Leq' 



Goto 



'Goto' ! 
' JumpZero' 
'Nextlnst' 
'Vector' ! 
'Repeat' | 



'Call' ! 'Return' ! 



'Next' 

! 'LoadS' ! 'GotoS' ! 'CallS' 
J ' ReviveVictim' ! 'PushLoad' 
'Dispatch' ' 
'JumpPop' I 



, 'RepeatLoop' 
'Loop' 



'ThreeWayBranch' 



Addr 



= label ! constant 



Special = Nonary | Unary ! Binary 



Nonary 



'WCSlow' 
'Hold' ! 



| 'WCSmid' ! 
'StackReset' 



'Fetch' 
'Store' 
'LatchMA 



»Fetch2» 
'Store2' 



»Fetch4' 
'Stored' 



Shift OnR 



WCShi' | 
'Push' 



'LoadOp' 

'Pop' 
'FetchMR' 
'Store4R' 



Unary = UnaryName '(' constant ')' . 

UnaryName = 'LeftShift' j 'RightShift' 
| 'Rotate 1 ! 'IOB' 
1 'CntlRasterOp' . 



- 18 - 



PERQ Micro-Programmer's Guide 08 Feb 82 

Binary = BinaryName ' (' constant ',' constant ')' . 
Binary Name = 'Field 1 .. 



Notes on the Syntax 

1) Programs are typed in free format. That is, a single micro- 
instruction may extend to as many lines as desired. Blank lines 
and lines consisting only of comments may be inserted anywhere. 
The exception to this rule is that a new micro-instruction begins 
with a new line, i.e. you may not place more than one 
instruction per line. 

2) Names may be any length, but only 10 characters are significant 
when two names are compared. 

3) Comments may be indicated by an exclamation mark: '!'. The 
remainder of the line following the exclamation mark is ignored. 
Comments may also be enclosed in braces Pascal style: '{' and '}' 
or f (*' and ♦*) ' . 

4) Numeric constants preceded by a '#' are octal constants. 

5) Constants may be defined Pascal style: 

name = value; 

This allows including a file which contains constant definitions 
into both a Pascal program and a micro-program. 

6) The following ALU functions are allowed by the syntax descrip- 
tion, but do not exist. The assembler disallows them. 

Amux 'nand' 'not' Bmux 

Amux 'nor' 'not' Bmux 

Amux 'xor* 'not' Bmux (equivalent to Amux 'xnor' Bmux) 

Amux 'xnor' 'not' Bmux (equivalent to Amuv 'xor' Bmux) 

7) The syntax allows constructions which are' semantically incorrect. 
In other words, there are many combinations of actions which 
cannot be represented in a single instruction. For example, 

TOS := MA := 10; is valid, but 

TOS := BPC : = 10; is invalid. 

The 'Micro Instruction Format' section shows which fields of a 
micro-instruction are used by a particular action. The rule is 
that a certain field may be used only once. Thus since 'TOS :=' 
and 'BPC :=' both use the SF (special function) field, they both 
may not be used in a single micro-instruction. 
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8) Some goto types do not allow tests (are unconditional), and for 

some the test is optional. Similarly, some do not allow 
addresses, some require them, and for some the address field is 
optional. This table gives the rules. 

req - required, opt - optional, <blank> - not allowed 

Goto type test address 

Goto opt req 

Call opt req 

Return opt 

Next 

JumpZero 

LoadS req 

GotoS opt opt 

CallS opt opt 

Nextlnst req 

ReviveVictim 

PushLoad opt req 

Vector * opt req 

Dispatch opt req 

RepeatLoop 

Repeat req 

JumpPop opt req 

Loop opt 

ThreeWayBranch opt req 



Assembler Commands 

There are several commands which are directives to the assem- 
bler and placer to perform special actions. Assembler commands are 
indicated by a '$' in column 1. The entire line is considered to be 
an assembler command. You may not type other micro-instructions on 
the same line. 



'$Include f FileName 

The text in the named file is inserted into the micro- 
program as though it were present in the original source 
file. Included files may not be nested. Only the orginal 
source file may contain an Include command. 



f $Title f TitleString 

The TitleString is printed on the assembly listing on the 
first line of every page. The first Title command sets 
the main title which is printed at the left of each page. 
Each subsequent Title command sets the subtitle which is 

printed at the right of each page. 
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f $NoList' 

The listing is turned off until a List command is 
encountered. This command has an effect only if a listing 
is requested when the placer is executed. 

? $List' The listing is resumed if it was turned off by a NoList 
command. This command has an effect only if a listing is 
requested when the placer is executed . 
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Assembly Instructions 

Before a micro-program can be run it must be assembled with 
PrqMic and then placed with PrqPlace. PrqMic translates the program 
into binary machine language, and PrqPlace assigns physical micro- 
store locations to those instructions which are not assigned by the 
micro-programmer . 

The following shows how to assemble and place a micro-program. 
A micro-program source file name has the form <src>. MICRO. <src> is 
called the root name. 



assemble : 



PrqMic 

Root file name? <src> 

-or- 
PrqMic <src> 



place with listing: 



PrqPlace 

Root file name? <src> 

List file name? <lst> 

-or- 

PrqPlace <src> <lst> 



place without listing: 

PrqPlace 

Root file name? <src> 

List file name? 

-or- 

PrqPlace <src> 

Once a micro-program has been assembled and placed, you can use 
it in one of these ways: 

a. Load it into another Perq with OdtPrq. 

b. Load it into the same Perq with the ControlStore module. 

c. Write it into a boot file with MakeBoot. 
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Writable Control Store (WCS) Map 

The following provides a map of the Writable Control Store 
(WCS) and describes the micro code register usage. 

When you boot the system, VFY. MICRO runs memory diagnostics. 
SYSB. MICRO then loads microcode from the MBoot file. At boot time, 
microcode can only be loaded into WCS addresses through 7377. At 
the end of the boot, only PERQ. MICRO and 10. MICRO are in the WCS. 
This leaves 7000 through 7777 for user defined microcode. (You can 
use 7000 through 7377 for bootable special purpose microcode.) 

PERQ. MICRO -PERQ Q-Code interpreter microcode. Temporary registers 
store state information during Q-Code interpretation. Registers: 
3-21, 51-57, 64-67, 370. Temporary registers: 30-50, 61-63, 70-77. 
Placement: 0-4377. 

10. MICRO - Input/Output microcode. Registers: 200-207, 211-217, 
221-233, 235-252, 255-260, 262-266, 276, 277, 327, 373, 374. 
Temporary registers: 220, 261. Placement: 4400-5777. 

LINK. MICRO - 16 bit parallel interface microcode. (Not normally- 
booted into WCS). Registers: 350, 351. Placement: 6744-7400. 

SYSB. MICRO - system boot microcode. Registers: 0-64. Placement: 
7000-7777. 

I0E3. MICRO - Microcode for 3MBaud ETHERNET. This area is available 
if the system will not use ETHERNET. Registers: 270-274. Place- 
ment: part of 10. MICRO. 

BOOT. MICRO - Boot microcode. Registers: 0-2, 4, 10, 20, 40, 100, 
200, 252, 277, 307, 337, 350, 357, 367, 373, 375, 376, 377. 
Placement: 0-777. 

KRNL. MICRO - PERQ microcode kernel. Registers: 0, 357-377. Place- 
ment: 7400-7777. 

G00DBY. MICRO - Power down microcode. Placement: 5000-5377. 

ETHER10. MICRO - 10MBaud ETHERNET microcode. Registers: 300-321. 
Placement: 7000-7300 

R0. MICRO - Raster-op microcode. Registers: 100-124, 130-142, 370. 
Placement: part of PERQ. MICRO. 

LINE. MICRO - Line drawing microcode. Registers: 100, 101, 103-116. 
Placement: part of PERQ. MICRO. 

VFY. MICRO - Verifies that the hardware seems to work. Registers: 
0-16, 300, 301, 370. Placement: 4000-6377- 
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Quirks 
As of 12/1/80, the following quirks are known: 

- The Z field is inverted for Shift functions (assembler 
fixes this) . 

- The Op file is inverted on Nextlnst (assembler Opcode does 
it). 

- The Z field is inverted for all addresses (assembler fixes 
it) . 

- IOB functions are executed twice if an abort occurs. 

- C19 will not be valid if an abort occurs on the test. 

- C 1 9 test is inverted sense (i.e. jump "if no carry out of 

.' bit 19) - 

- UState[ 15: 12] (the upper BMux bits) are inverted. 

- Condition codes are not quite right after double precision 
adds and subtracts. See the x Condition Codes N section. 

- Condition codes are invalid after ReadProduct, ReadQuo- 
tient, and ReadVictim, 
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1 . Q-Machine Architecture 



1 .A Definitions 

Segment - A segment is the underlying structure of PERQ f s 
virtual memory system. It is the largest area of 
contiguous memory, and also the unit of swappability . 
Segments come in two types: code segments, which are 
byte-addressed, read-only, and fixed in size with a 
maximum size of 64K bytes (32K words); and data segments, 
which are word-addressed, read-write, and variable in size 
with a maximum size of 64K words. 

MSTACK - Memory Stack. A data segment which contains the user 
run-time stack. 

ESTACK - Expression Stack. A 16 level expression evaluation 
stack (internal to the PERQ processor). 

MTOS - Top of MSTACK. MTOS refers to the virtual address of the 
top of the memory stack* (MTOS) denotes the item on the 
top of the MSTACK. 

ETOS - Top of ESTACK. (ETOS) denotes the item on the top of the 
ESTACK. 

Activation Record - Stack segment fragment for a single routine 
containing local variables, parameters, function result, 
temporaries (anonymous variables), other housekeeping 
values (Activation Control Block - defined below), and a 
copy of the EStack at the time the activation record is 
created . 

CB - Code Base (register). Physical adddress of the base of 
the current code segment. 

SB - Stack Base (register). Physical address of the base of 
the current stack segment. 

PC - Program Counter (register). Physical address of the 
current instruction . 

GBB - Global Data Block. A GDB contains the global variables 
for a particular module. GDBs always begin on a 
double-word boundary. 
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ISN - Internal Segment Number (compiler-generated) . 

SSN - System Segment Number (system-generated). Note, System 
Segment is reserved and may never be used, 

LL - Lexical Level. Note: the Lexical Level of the main body 
of a process is always 0. 

RN - Routine Number (register). RN contains the ordinal number 
of the current routine. Note: RN must lie in the range 
to 255. 

CS - Code Segment (register). CS contains the system segment 
number (SSN) for the current code segment. This segment 
must be resident in physical memory for a process to be 
runnable . 

SS - Stack Segment (register). SS contains the system segment 
number (SSN) for the current stack segment. This segment 
must be resident in physical memory for a process to be 
runnable. 

PS - Parameter Size. PS is the number of words in. an 
activation record which are used for parameters. 

RPS - Result + Parameter Size. This is the number of words in 
an activation record which are used for function result 
and parameters. 

LTS - Local + Temporary Size. LTS is the number of words in an 
activation record which are used for locals and 
temporaries (anonymous variables). (Note: the LTS of a 
main program body is always forced to 0.) 

AP - Activation Pointer (register). AP contains the physical 
address of the current activation record. 

DL - Dynamic Link. This is the AP of the caller, represented 
as an offset from SB. 

SL - Static Link. This is the AP of the surrounding routine, 
represented as an offset from SB. 

TP - Top Pointer (register). TP contains the physical address 
of the top of the run-time MStack. 

TL - Top Link. TP of the caller, represented as an offset from 
SB. 
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GP - Global Pointer (register). Physical address of the GDB 
for the current code segment. 

GL - Global Link. GP of the caller, represented as an offset 
from SB. 

LP - Local Pointer (register) . Physical address of the current 
activation record. When the LP is stored in an Activation 
Control Block (ACB), it is represented as an offset from 
SB. Unlike other values in the ACB, the LP value is the 
current value of the Local Pointer, not some previous 
value . 

XGP - external Global Pointer. Pointer to another code 
segments GDB, represented as an offset from SB. 

XST - external Segment Table. For a given program module, the 
XST translates ISNs to SSNs and XGPs . 

RS - Return Segment. RS is the CS of the caller. 

RA - Return Address, PC of the caller. represented as an 
offset from CB. 

RR - Return Routine. RN of the caller. 

RD - Routine Dictionary. Each code segment contains a routine 
dictionary which is indexed by RN. For each routine, the 
routine dictionary gives the lexical level (LL) , entry 
address, exit address, parameter size (PS), result + 
parameter size (RPS), and local + temporary size (LTS) . 

ACB - Activation Control Block. The ACB contains housekeeping 
values in the activation record. It contains the SL, LP, 
DL, GL, RS, RA, RR and EP. In the ACB, the DL, GL, RS, 
RA, and RR are the AP, GP, CS, PC, and RN of the caller, 
respectively. The SL is the AP of the routine that 
surrounds the current one. The LP in the ACB is the 
current local pointer. 

EEB - Exception Enable Block - Each ' EEB enables a single 
exception by associating an exception with a handler. A 
(possibly empty) list of EEBs is associated with each 
activation record in the stack. 

Enabling an Exception - Associating a certain exception handler 
with a certain exception. 
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EP - Exception Pointer. The address (as an offset from SB) of 
a list of nodes that describe which exceptions are enabled 
in a certain routine. 

ER - Exception Routine Number. The routine number of an 
exception. 

ES - Exception Segment Number. The segment number of an 
exception . 

Exception - An error or unusual occurrence in the execution of a 
routine or program. 

Exception Handler - A procedure to be executed when a certain 
exception is raised. 

HR - Handler Routine Number. The routine number of an 
exception handler. 

NE - Next Exception. The address (as an offset from SB) of 
the next in a list of nodes that describe which exceptions 
are enabled in a certain routine. 

Raising an Exception - Asserting a certain exception. 
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1.B Memory Organization 



The PERQ ! s virtual memory system features a segmented 32-bit 
virtual address space mapped into a 20-bit physical address space. 
The segment is the unit of swappability , and comes in two types: 

1) Code segments which are byte-addressed, read-only, and fixed 
in size with a maximum size of 64K bytes (32K words). 

2) Data segments which are word-addressed, read-write, and 
variable in size with a maximum size of 64K words. 

A PERQ process is a collection of up to 64K code and data 
segments. One of the data" segments is the stack segment. Every 
process must have a stack segment and at least one code segment. 

All segments are allocated in 256 word chunks and when in 
physical memory are aligned on 256 word boundaries. Note: A single 
segment must exist in contiguous memory. It may not be fragmented. 



1.B.1 Memory Organization at the Process Level 

The memory organization is designed with the following 
attributes in mind: 1) to allow separately compiled code segments 
to be grouped into a single process, 2) to allow code segments to 
be shared among processes, 3) to allow each code segment to have 
its own global variables, and 4) to allow one code segment to 
reference routines and global variables in other code segments. To 
achieve this, the following high-level characteristics are 
implemented : 

1) All code is re-entrant. 

2) Each code segment only refers to other code segments by 
internal (compiler-generated) segment numbers, which are not 
necessarily the same as the system-assigned segment numbers. 

3) Each code segment in a process has its own Global Data Block 
on the run-time stack. 

4) Each code, segment has an external segment table to permit 
referencing global variables and routines from other code 
segments. 
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1 .B. 1 .a Global Data 

At the global level, there is a Global Data Block (GDB) and an 
external Segment Table (XST) associated with each code segment in a 
process. For a particular program module, the GDB contains the 
global variables, and the XST translates internal (compiler- 
generated) segment numbers (ISNs) to actual system segment numbers 
(SSNs) and external Global Pointers (XGPs) . To simplify the system, 
we devote a single pointer to reference both the current GDB and 
XST. This Global Pointer (GP) points to the lowest address in the 
GDB and is ALWAYS aligned on a double-word boundary. 



+ »-+ 

SB >! ! 

i undetermined space ! 

i ■ 

i i 

+ + 

. ! XST 1 ! 

+ + 

! GDB 1 i 

+ + 

i i 

i i 

• • • • 

i i 

i i 

i • 

! XSTi i 

i i 

i i 

+ • + 

GP >! ! 

i GDB i ! 

i i 

i i 

+ + 

i i 

i t 

• • • • 

toward the top of stack 

The XST for each segment is indexed by the internal segment 
numbers (ISNs). The entry is at GP - 2*ISN (Note: There is no 
entry for ISN 0; ISN always refers to the current segment). Each 
entry contains the offset from stack base (SB) of an external data 
block (XGP) and the actual system segment number (SSN) of the 
external segment. The XGP values are set by the linker, and the SSN 
values are set by the loader. 
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+ -- + 

! external Global Pointer (XGP) ! 

+ + 

! System Segment Number (SSN) i 
+ + 

1 .B. 1 .b Local Data 

At the local level, there is an activation record, which 
consists of local variables, function result, parameters, 
temporaries (anonymous variables) , the Activation Control Block 
(ACB), the previous EStack, exception enable blocks, and extra 
values that the routine may push and pop from the run-time stack. 
Three pointers are used to access and keep track of this 
information: the to p-of- stack pointer (TP) , the current-activation 
pointer (AP) , and the local-variables pointer (LP) . 



Result m-1 


Parameters 


m-1 


Locals m-1 


Temporaries m-1 


ACB m-1 


EStack. m-2 


Exceptions 


m-1 


Extra m-1 
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LP > 



AP > 



TP > 



Result m 



Parameters m 



Locals m 



Temporaries m 



ACB m 



EStack m-1 



Exceptions m 



Extra m 



toward the top of stack 



The function result, parameters, locals and temporaries are 
located by an offset from LP. 
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Each ACB has the following form: 

+ + 

i Static Link (SL) i 

+ . . + 

! Local Pointer (LP) (current) i 

+ + 

! Dynamic Link (DL) ! 

+ + 

! Global Link (GL) ! 

+ + 

! Top Link (TL) ! 

+ + 

! Return Segment Number (RS) j 

+ ---' » ■ + 

j Return Address within Segment (RA) ! 
+ , + 

S Return Routine Number (RR) i 

+ + 

i Exception Pointer (EP) ! 

+ + 

toward the top of stack 

The values in the ACB are the AP of the surrounding routine 
(SL), the current (not previous) LP, the AP of the caller (DL), the 
GP of the caller (GL) , the TP of the caller (TL) , the SSN of the 
caller (RS), the program counter (PC) of the caller (RA), the RN of 
the caller (RR) and a pointer to the current exception enable 
records (EP) . Note: When previous pointer values are saved in the 
ACB they are called links: SL, DL , GL, TL. Because the current (not 
previous) LP and EP are stored in the ACB, they are called pointers, 
not links. The static link is not used for main programs and 
top-level routines. It is zero for these routines and is therefore 
a means of detecting top-level routines. The dynamic link is zero 
for the first routine on the stack (the one at the base of the 
stack) . This is used to detect the end of the stack during stack 
searches. 
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The EStack image immediately follows the ACB and looks like 
this: 

+ ■ --+ 

j Number of Words Saved ' 

+ + 

I (ETOS) ! 

+ + 

! (ETOS-1) ! 

+ + 

i i 

t i 

• • • .• 

i .1 

i i 

+ + 

! (ETOS-n) ! 

+ + 

toward the top of stack 
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1.B.1.C Run-Time Stack Organization 

The following is an outline of the stack for a process of n 
segments, executing the mth routine call, which is in the ith 
segment: 



SB > 



GP > 



undetermined space 



XST 1 
GDB 1 



XST i 



GDB i 



• • • • 



XST n 


GDB n 


ACB (main prog 


ram) 


Exceptions 


Extra 


Result 1 


Parameters 1 


Locals 1 


Temporaries 1 
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LP > 



AP > 



TP -> 



ACB 1 


EStack 


Exceptions 1 


Extra 1 



Result m 



Parameters m 



Locals m 



Temporaries m 



ACB m 



+«, 



EStack m-1 



Exceptions m 



Extra m 



toward the top of stack 
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1.B.2 Memory Organization at the System Level 

The system makes use of two tables to control memory usage, the 
System Segment Address Table and the System Segment Information 
Table. The former contains all information which is needed by the 
Q-Code micro-code (location, size, residency, etc). The latter 
contains other information which is only referenced by the operating 
system (reference, I/O and lock counts; maximum size; etc). 
1.B.2.a System Segment Address Table 

The System Segment Address Table is a dynamic table, which is 
always resident in physical memory starting at physical address 0. 
This table contains two words per segment, and contains all 
information that the Q-Code micro-code needs to know about each 
segment. The information contained in this table is: 

1) Segment Base Address (upper 12 bits) 

2) Segment Size (number of 256 word blocks - 1) 

3) Flags 

Not Resident 

Recently Used 

Moving 

Shareable 

Segment Kind 

Segment Full 

Segment Table Entry In Use 

The Segment Base Address is the upper 12 bits of the physical 
address of the base of the segment. If the segment is not resident 
in physical memory, this field is undefined. The lower 8 bits of 
the Segment Base Address are always guaranteed to be zero (since all 
segments are aligned on 256-word boundaries) . 

The Segment Size is one less than the size of the segment in 
256-word blocks (i.e., Segment Size = 256 words). 

The Flags have the following meanings and uses: 

Not Resident - When true, this flag indicates that the 
segment is either swapped out or that the segment 
table entry is not in use. When false, this flag 
indicates that the entry is in use and the segment 
it describes is resident in physical memory. (See 
the "Segment Table Entry In Use" flag.) 
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Recently Used - This flag is set when a segment is accessed. 
It is used by the swapper to determine which 
segments are likely candidates to be swapped out 
when space is needed. 

Moving - This flag, when true, indicates that the segment is 
being moved from one location in physical memory to 
another. If moving is true, Resident will be false. 
Moving is used only by the swapper to determine how 
to handle segment faults. (Not used by the Q-Code 
micro-code) . 

Shareable - When true, this flag indicates that a segment 
may be shared by several processes. (Not used by 
the Q-Code micro-code) 

Segment Kind - This flag indicates whether the segment is a 
data or code segment. (Not used by the Q-Code 
micro-code) 

Segment Full - This flag, when true, indicates that the 
entire data segment has been allocated (via the 
Pascal New procedure). This flag is needed to 
distinguish full and empty data segments (and has no 
relevant meaning for code segments). (Not used by 
the Q-Code micro-code) 

Segment Table Entry In Use - This flag is set true when the 
segment table entry describes a valid segment. 

The arrangement of these fields within the two words are shown 
below: 

Bit 15 8 7 

+ + + 

Word ! Base Addr (bits 8-15) i Flags 
+ +. 



I IT1 OCTO J 



Bit 15 4 3 

+ + + 

Word 1 | Segment Size J BA (16-19) I 

+ + + 
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The positions of the flags within the' low byte of Word are: 
Bit Flag 



Resident 

1 Moving 

2 Recently Used 

3 Shareable 

4 Segment Kind 

5 Segment Full 

6 Table Entry In Use 

7 not used 

1.B.2.b System Segment Information Table 

There is no information in the System Segment Information Table 
which is needed by the Q-Code micro-code; hence it is not described 
here. See "Module Memory" in the Operating System Manual. 

1.B.2.C Code Segment Organization 

A code segment contains the code for all routines in a segment 
and a routine dictionary which contains vital information about each 
of these routines. 

The first word of every code segment is the offset from the 
base of the segment to the first word of the routine dictionary. 
The second word contains the number of routines which are defined in 
the segment. These two words are followed by the actual code which 
comprise the routines. Finally, the code is followed by the routine 
dictionary. The code is padded with to 3 words of zero (by the 
compiler) so that the routine dictionary is aligned on a quad-word 
boundary. This is possible since the compiler knows that the base 
of the segment is also aligned on a quad-word boundary. It should 
also be noted that each entry in the dictionary is exactly 2 
quad-words long (8 words). The routine dictionary is indexed by 
(Base Address of Dictionary)+8*RN. 
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Each entry has the following form: 



j Parameter Size (PS) 

' Result + Parameter Size (RPS) 

! Local + Temporary Size (LTS) 

| Entry Address Within Segment 



Exit Address Within Segment 



j Lexical Level (LL) 



i not used 1 

+ 

| not used 2 

+ 



toward high memory 



The Entry and Exit Addresses are the offsets from code base 
(CB) to the beginning of the routine and the beginning of the 
"terminate code" of the routine. 
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The following is a sample of a code segment containing 3 
routines : 



Pointer to Routine Dictionary 



Number of Routines (3) 



Code for Routine 1 



Code for Routine 2 



Code for Routine 3 



RD 


Entry- 


for Routine 


1 


RD 


Entry 


for Routine 


2 


RD 


Entry 


for Routine 


3 



>— 



<— + 



toward high memory 
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1.C Error Handling and Fault Conditions 

Error processing is done through an exception handling 
mechanism. The syntax of exception and handler is described in the 
PERQ Pascal Extensions manual. The QCodes used to enable and raise 
exceptions are described in Section "Routine Calls and Returns." 

An exception is declared in a way which is similar to a 
procedure declaration. Therefore it is convenient to assign a 
routine number at the point of definition of an exception. There is 
a corresponding entry in the routine dictionary to describe this 
exception. This entry describes a procedure with the correct number 
of parameters along with no locals or temporaries. The system 
segment number of the module, which contains the exception, and its 
routine number uniquely identify the exception. 

An exception handler is simply a procedure — handlers may not 
return a value. An exception handler is enabled by declaring it 
inside some routine. This outer routine is called the enabler of 
the handler. The code segment numbers and global pointers of the 
enabler and handler are the same. The static link of the handler is 
the same as the activation pointer of the enabler. Thus an 
exception handler is uniquely identified by the ACB of the enabler 
and the routine number of the handler. 

An exception enable record consists of the definition of the 
exception to be handled (ER and ES) , the routine number of the 
handler (HR), and a link to the next exception enable record (NE). 
ER and ES are negative for a handler of all exceptions. 



+■ 



■+ 



Exception Segment Number (ES) 



+ + 

| Exception Routine Number (ER) ! 

+ + 

i Handler Routine Number (HR) ! 

+ + 



! Next Exception Pointer (NE) 



+• 



■+ 



When a routine is called, the exception pointer (EP) within the 
new ACB is set to zero to indicate that there are no exception 
handlers. If exception handlers are declared within the routine, 
the compiler generates appropriate QCodes to add those handlers to 
the routine's exception list. When a routine is exited, the 
exception records are popped from the run-time stack along with the 
rest of the activation record. 
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When an exception is raised , the QCode interpreter microcode 
calls the procedure RaiseP in the module Except. This routine 
searches back through the run-time stack to find the most recent 
routine which contains a handler for that exception. Once such a 
candidate is found , the stack is searched again to determine if that 
handler is already active. If it is, the search for a candidate 
continues. This implementation ensures that while a particular 
instance of a handler is active, it will not be activated again. A 
recursive routine may contain a handler, and there may be several 
instances of the same handler. In this case, each handler is 
activated separately. 

Determining if a handler is active by searching the stack is 
not the best method. If we assume that the depths of handler 
activation records are related to the number of active handlers, 
then the total stack search time for raising an exception is related 
to the square of the number of active handlers of that exception. 
This should rarely be burdensome because it is not expected that 
there will be more than one or two active handlers for a given 
exception. Recursive routines that pass exceptions up the call 
stack are pathological cases. 

When an unused enable for the exception is found, the 
associated handler is called. The handler has' the option of exiting 
to the routine which enabled the exception (via a Goto) or of 
returning to the point where the exception was raised (by falling 
off the end of the procedure) . 

If no handler is found, the default handler is called. The 
search order for a certain routine's exception list is the reverse 
of the order in which they were enabled. If a handler of all 
exceptions is declared within a certain routine-, the compiler 
enables it first. 

A handler of all exceptions is called in a special way. When 
it is called, the parameters that were passed when the exception was 
raised have already been pushed onto the stack. A new activation 
record for the handler is built above those parameters. Such a 
handler for all exceptions must have four words of parameters: -the 
segment and routine numbers of the exception that was raised, a 
pointer to the first word of the original parameters, and a pointer, 
to. the first word after the original parameters. The two pointers 
are represented as integer offsets from the base of the stack. 
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2. Instruction Format 

Instructions on the Q-machine are one byte long followed by 
zero to four parameters. Parameters are either a signed byte (B : 
range -128 to 127), an unsigned byte (UB : range to 255) or a word 
(W) . Words need not be word aligned (unless specified). The low 
byte is first in the instruction byte stream. 

Any exceptions to these formats are noted with the instructions 
where they occur. 

3. Pointers 

There are five different types of pointers, defined as follows: 
(Note: 20-bit offsets may only exist on the EStack) . 

Word Pointer: A 20-bit offset from StackBase (StackBase is the 
20 bit physical address of the base of the stack) . 

Byte Pointer: A 20-bit offset from StackBase to the base of the 
byte array (TOS-1) and a byte offset into the array (TOS). 

String Pointer: Same as a byte pointer. 

Packed Field Pointer: A 20-bit offset from StackBase to the base 
of the word the field is in (TOS-1) and a one word field 
descriptor (TOS). 

Field Descriptor: 

Bits 0-3: The field width (in bits) minus 1 

Bits 4-7: The rightmost bit of the field. 

Pascal Pointer: Obtained by declaring a variable as a pointer to 
another data type (i.e., var I: "Integer;). (TOS-1) is 
the system segment number that contains the datum. (TOS) 
is the offset from the segment base to the datum. 

Implementation Note: Stacks grow from low addresses to high 
addresses (i.e., if the address of TOS is 10 then the address of 
TOS-1 is 9 — not 11) . 
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4, QCode Descriptions 

This section provides a detailed description for each QCode* 
The QCode descriptions appear categorically. The following lists 
the QCodes and equates each with its respective QCode number. Thus, 
if you only know the QCode number, you can use the list to equate 
the number to the named QCode. 



QCode OpCode Definitions: 



LDCO 

LDC1 

LDC2 

LDC3 

LDC4 

LDC5 

LDC6 

LDC7 

LDC8 

LDC9 

LDC10 

LDC11 

LDC12 

LDC13 

LDC14 

LDC15 
. LDCMO 
LDCB 
LDCW 
LSA 

ROTSHI 
STIND 
LDCN 
LDB 
STB 
LDCH 
LDP 
STPF 
STCH 
EXGO 
QAND 
QOR 
QNOT 
EQUBool 
NEQBool 
LEQBool 
LESBool 
GEQBool 
GTRBool 




1 
2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 
14 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 
32 

33 
34 
35 
36 
37 
38 



(Assignment of Byte/Word opcodes are important) 



(Opcode assignment of all EQU , NEQ, LEQ, LES) 
(GEQ and GTR qcodes are important 
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EQUI 


= 


39 




NEQI 


= 


40 




LEQI 


= 


41 




LESI 


= 


42 




GEQI 


= 


43' 




GTRI 


= 


44 




EQUStr 


= 


51' 




NEQStr 


= 


52 




LEQStr 


= 


53; 




LESStr 


s 


54 




GEQStr 


= 


55; 




GTRStr 


= 


56; 




EQUByt 


= 


57; 




NEQByt 


= 


58. 




LEQByt 


= 


59; 




LESByt 


r 


60 




GEQByt 


= 


61; 




GTRByt 


= 


62 




EQUPowr 


2 


63' 




NEQPowr 


= 


64 




LEQPowr 


= 


65; 




SGS 


= 


66 




GEQPowr 


= 


67 




SRS 


= 


68' 




EQUWord 


r 


69; 




NEQWord 


= 


70; 




ABI 


= 


71 




ADI 


= 


72- 




NGI 


= 


73 




SBI 


= 


74 




MPI 


= 


75 




DVI 


s 


76; 




MODI 


r 


77 




CHK 


= 


78, 




INN 


= 


88 




UNI 


= 


89' 




QINT 


- 


90 




DIF 


= 


91; 




EXITT 


= 


92 




NOP 


— 


93' 




REPL 


= 


94. 




REPL2 


= 


95; 




MMS 


= 


96 




MES 


= 


97; 




LVRD 


= 


98 




LSSN 


r 


99 




XJP 


= 


100; 


RASTOP 


= 


102; 


STRTIO 


r 


103; 


INTOFF 


= 


10! 


5; 



(there is no LESPowr 

(there is no GTRPowr 

(Word is the last comparison and only EQU 

and NEQ exist) 
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INTON 

LDLB 

LDLW 

LDLO 

LDL.1 

LDL2 

LDL3 

LDL4 

LDL5 

LDL6 

LDL7 

LDL8 

LDL9 

LDL10 

LDL11 

LDL12 

LDL13 

LDL14 

LDL15 

LLAB 

LLAW 

STLB 

STLW 

STLO 

STL1 

STL2 

STL3 

■ STL4 

STL5 

STL6 

STL7 
LDOB 

LDOW 
LDOO 
LD01 
LD02 
LD03 
LD04 

LD05 

LD06 

LD07 

LD08 

LD09 

LDO10 

LD011 

LD012 

LD013 

LD014 

LD015 

LOAB 



106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 

117 
118 
119 
120 
121 
122 

123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 

153 
154 
155 



- 2? - 



PERQ QCode Ref 


erence 


Manual 


LOAW 




156; 


STOB 


= 


157; 




STOW 


= 


158; 




STOO 


= 


159; 




ST01 


= 


160; 




ST02 


= 


161; 




ST03 


= 


162; 




ST04 


r 


163; 




ST05 


= 


164; 




ST06 


= 


165 




ST07 


= 


166; 




MVBB 


= 


167; 




MVBW 


r 


168; 




MOVB 


= 


169; 




MOVW 


= 


170; 




INDB 


z 


171; 




INDW 


= 


172; 




INDO 


= 


173" 




IND1 


£ 


174; 




IND2 


= 


175 




IND3 


= 


176; 




IND4 


r 


177 




IND5 


= 


178; 




IND6 


= 


179 




IND7 


= 


180; 




LDIND 


= 


173' 


(Same as 


LGAWW 


s 


181 




STMW 


= 


182 




STDW 


= 


183 




SAS 


= 


184 




ADJ 


— 


185 




CALLL 


- 


186- 




CALLV 


r 


187 




ATPB 


= 


188 




ATPW 


r 


189 




WCS 


= 


190 




JCS 


r 


191 




LDGB 


= 


192 




LDGW 


= 


193 




LGAB 


= 


194 




LGAW 


= 


195 




STGB 


= 


196 




STGW 


= 


197 




RETURN 


= 


200 




MMS2 


= 


201 




MES2 


~ 


202 




LDTP 


- 


203 




JMPB 


= 


204 




JMPW 


= 


205 




JFB 


= 


206 
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Real 



JFW 


= 


207 


JTB 


r 


208 


JTW 


= 


209 


JEQB 


zs 


210 


JEQW 


r 


211 


JNEB 


= 


212 


JNEW 


= 


213 


IXP 


r 


214 


LDIB 


s 


215 


LDIW 


= 


216 


LIAB 


= 


217 


LIAW 


= 


218 


STIB 


= 


219 


STIW 


= 


220 


IXAB 


= 


221 


IXAW 


— 


222 


IXA1 


- 


223 


IXA2 


- 


224 


IXA3 


- 


225 


IXA4 


_ 


226 


TLATEO 


= 


227 


TLATE1 


= 


228 


TLATE2 


= 


229 


EXCH 


= 


230 


EXCH2 


= 


231 


INCB 


= 


232 


INCW 


= 


233 


CALLXB 


= 


234 


CALLXW 


= 


235 


LDMC 


= 


236 


LDDC 


= 


237 


LDMW " 


= 


238 


LDDW 


= 


239 


STLATE 


= 


240 


QLINE 


r 


241 


ENABLE 


= 


242 


QRAISE 


— 


243 


LDAP 


- 


244 


ROPS 


— 


250 


INCDDS 


- 


251 


LOPS 


- 


252 


BREAK 


- 


254 


ReFillOp 


— 


255 


Operations - 


- Sec 


TNC 


- 


o; 


FLT 


= 


1 ; 




ADR 


~ 


2 




NGR 


= 


3; 





(See below for 2nd byte) 
(See below for 2nd byte) 



- Second byte of ROPS opcode 
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SBR 


r 


^; 


MPR 


r 


5; 


DVR 


= 


6; 


RND 


= 


7; 


ABR 


= 


8; 


EQUReal 


= 


9; 


NEQReal 


r 


10; 


LEQReal 


r 


11; 


LESReal 


= 


12; 


GEQReai 


r 


13; 


GTRReal 


= 


14; 


RUNUSED 


= 


15; 


Operations - 


- Se 


CVTLI 


= 





CVTIL 


= 


1 


ADL 


= 


2 


NGL 


= 


3 


SBL 


= 


4 


MPL 


r 


5 


DVL 


= 


6 


MODL 


s 


7 


ABL 


— 


8 


EQULong 


= 


9 


NEQLong 


= 


10 


LEQLong 


r 


11 


LESLong 


= 


12 


GEQLong 


= 


13 


GTRLong 


= 


14 


LUnused 


= 


15 



4. A Variable Fetching, Indexing, Storing and Transferring 
4.A.1 Loads and Stores of One Word 
4.A.1.a Constant One Word Loads 



LDCO. .15 

LDCN 
LDCMO 



0-15 



22 



16 



Load Word Constant. Pushes the value 
(0..15), with high byte ero, onto the 
EStack. 

Load Constant Nil. Pushes the value of NIL 
onto the EStack. 

Load Constant -1 . 
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LDCB B 17 Load Constant Byte. Pushes the next byte on 

the EStack, with sign extend. 

LDCW W 18 Load Constant Word. Pushes the next word on 

the EStack. 
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4.A.1.b Local One Word Loads and Stores 
LDLO. .15 



LDLB 



UB 



LDLW 



LLAB 



LLAW 



STL0..7 



STLB 



STLW 



W 



UB 



W 



UB 



W 



109-124 Short Load Local Word. LDLx fetches the 
word with offset x in the current activation 
record and pushes it onto the EStack. 

107 Load Local Word/Byte Offset. Fetches the 
word with offset UB in the current 
activation record and pushes it on the 
EStack. 

108 Load Local Word/Word Offset. Fetches the 
word with offset W in the current activation 
record and pushes it on the EStack. 

125 Load Local Address/Byte Offset. Pushes a 
word pointer to the word with offset UB in 
the current activation record on EStack. 

126 Load Local Address/Word Offset. Pushes a 
word pointer to the word with offset W in 
the current activation record on EStack. 

129-136 Short Store Local Word. Store (ETOS) into 
word with offset x in the current activation 
record . 

127 Store Local Word/Byte Offset. Store (ETOS) 
into word with offset UB in the current 
activation record. 

128 Store Local Word/Word Offset. Store (ETOS) 
into word with offset W in the current 
activation record. 



Implementation Note: The address of the first local (offset 0) 
is contained in the Local Pointer register (LP). The address of the 
Nth local is computed as (LP) + N. 
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4.A.1.C Own One Word Loads and Stores 



i nnn 1 c 



LDOB 



LDOW 



LOAB 



LOAW 



STOO. .7 



UB 



W 



UB 



W 



• _)^ — O^ OuOi u wau uwu nvjiu. luua icoCnea une Word 

with offset x in the current Global Data 
Block (GDB) and pushes it on the EStack. 

137 Load Own Word/Byte Offset. Fetches the word 
with offset UB in the current Global Data 
Block (GDB) and pushes it on the EStack. 

138 . Load Own Word/Word Offset. Fetches the word 

with offset W in the current Global Data 
Block (GDB) and pushes it on the EStack. 

155 Load O.wn Address/Byte Offset. Pushes a word 
pointer to the word with offset UB in the 
current Global Data Block (GDB) on EStack. 

156 Load Own Address/Word Offset. Pushes a word 
pointer to the word with offset W in BASE 
activation record on EStack. 

159-166 Short Store Own Word. STOx stores (ETOS) 
into the word with offset x in the current 
Global Data Block (GDB). 



STOB 



UB 



STOW 



W 



157 Store Own Word/Byte Offset. Stores (ETOS) 
into the word with offset UB in the current 
Global Data Block (GDB). 

158 Store Own Word/Word Offset. Stores (ETOS) 
into the word with offset W in the current 
Global Data Block (GDB). 

Implementation Note: The address of the first own (offset 0) ■ 
is contained in the Global Pointer register (GP) . The address of 
the Nth own is computed as (GP)+N. 
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M.A.I.d Global One Word Loads and Stores 
LDGB UB1,UB2 192 



LDGW 
LGAB 



LGAW 
LGAWW 



STGB 



STGW 



Load Global Word/Byte Offset. Loads the 

word with offset UB2 in the Global Data 

Block (GDB) for program segment UB1 onto 
EStack. 



UB,W 193 
UB1,UB2 194 



UB,W 
W1,W2 



195 
181 



UB1,UB2 196 



Load Global Word/Word Offset. Same as LDGB 
except a full word offset is used. 

Load Global AddressAByte Offset. Pushes a 
word pointer to the word with offset UB2 in 
the Global Data Block (GDB) for program 
segment UB1 onto EStack, 

Load Global Address/Word Offset. Same as 
LGAB except a full word offset is used. 

Load Global Address/Word Segment, Word 
Offset. Same as LGAB except a full word is 
used both for the segment number and the 
offset . 

Store Global Word/Byte Offset. Stores 
(ETOS) in word with offset UB2 in the Global 
Data Block (GDB) for program segment UB1. 

Store Global Word/Word Offset. Same as STGB 
except a full word offset is used. 

Note: To achieve LDGW and STGW with full 
word segment numbers, use LGAWW with LDIND 
or STIND. 

Implementation Note: Self-relative pointers to the Global Data 
Blocks (GDB) for each externally referenced segment are contained in 
the External Segment Table (XST) , pointed to by the Global Pointer 
(GP). The address of the first global (offset 0) in the designated 
GDB is computed as GP - 2 * ISN, where ISN (Internal Segment Number) 
is the program segment number specified in the load or store 
instruction. The Nth global is addressed by the base address 
(computes as above) plus N. 



UB,W 



197 
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.A.1.e Intermediate One Word Loads and Stores 



T r>TR IIR1 iir^ ^1 ^ 



LDIW UB,W 216 



LIAB UB1,UB2 217 



LIAW UB,W 218 



Load Intermediate Word/Byte Offset. UB1 
indicates the number of static links to 
traverse to find the activation record to 
use. UB2 is the offset within the 
activation record of the desired word. The 
datum is pushed on EStack. 



Load Intermediate Word/Word Offset. 
LDIB except a word offset is used. 



Same as 



Load Intermediate Address/Byte Offset. A 
word pointer is pushed on EStack (determined 
as in .LDIB) . 

Load Intermediate Address/Word Offset. A 
word pointer is pushed on EStack (determined 
as in LDIW) . 



STIB 



UB1,UB2 219 



Store Intermediate Word/Byte Offset. Stores 
(ETOS) in memory (address determined as in 
LDIB) . 



STIW UB,W 220 Store Intermediate Word/Word Offset. Stores 

(ETOS) in memory (address determined as in 
LDIW) . 

Implementation Note: The Activation Pointer register (AP) 
contains the address of the current Activation Control Block (ACB). 
Within the ACB is the Static Link (SL) to the previous ACB. To 
compute the address of the first intermediate word of the desired 
level, traverse the Static Links to the correct ACB. Within the ACB 
is the Local Pointer (LP) for that activation record. 
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4.A.1.f Indirect One Word Loads and Stores 

STIND 21 Store Indirect. (ETOS) is stored into the 

word pointed to by word pointer (ETOS-1). 

LDIND 173 Load Indirect. Word pointed to by word 

pointer (ETOS) is pushed on EStack. 
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4, A. 2. a Double Word Loads and Stores (Reals and Pointers) 



LDDC 



<block> 237 



LDDW 



STDW 



239 



183 



Load Double Word Constant. <block> is a 
double word constant. Load the constant 
onto EStack. 

Load Double Word. (ETOS) is a word pointer 
to a double word. The double word is pushed 
onto EStack. 

Store Double Word. ( ETOS) , ( ETOS-1 ) is a 
double word and (ETOS-2) is a word pointer 
to a .double word block of memory. The 
double word is popped from ESTACK into the 
double word pointed to by (ETOS-2). 

4.A.2.b Multiple Word Loads and Stores (Sets) 

LDMC UB,<block> 236 Load Multiple Word Constant. UB is the 

number of words to load, and <block> is a 
block of UB words, in reverse word order. 
Load the block onto the MStack. 



LDMW 



STMW 



238 Load Multiple words. (ETOS-1) is a word 
pointer to the beginning of a block of 
(ETOS) words. Push the block onto the 
MStack. 

182 Store Multiple Words. The MStack contains a 
block of (ETOS) words, (ETOS-1) is a word 
pointer to a similar block. Transfer the 
block from MStack to the destination block. 
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4. A. 3 Byte Arrays 

Note: A byte pointer is loaded onto the stack with a LLA, LOA 
or LGA of the base address of the array followed by the computation 
of the offset. 



LDB 



STB 



MVBB UB 



23 



24 



167 



MVBW 



168 



Load Byte. Push the byte (after zeroing the 
high Byte) pointed to by byte pointer 
(ETOS) ,(ET0S-1) on EStack. 

Store Byte. Store- the low byte of (ETOS) 
into the location specified by byte pointer 
(ETOS-1) , (ETOS-2) . 

Move Bytes/Byte Counter. ( ETOS) , (ETOS-1 ) is 
a source byte pointer to a block of UB 
bytes, and ( ETOS-2) ,( ETOS-3) is the 
destination byte pointer to a similar block. 
Transfer the source block to the destination 
block. 

Move Bytes/Word Counter. Same as MVBB 
except (ETOS-1), (ETOS-2) is the source byte 
pointer, (ETOS-3), (ETOS-4) is the 
destination byte pointer, and (ETOS) is the 
number of bytes to transfer. 
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LSA 



Strings 

MR /nh?r5\ 1Q 



SAS 



184 



LDCH 



25 



Load String Address. UB is the length of 
the string constant <chars>. A string 
pointer is pushed on EStack (the virtual 
address of UB is pushed followed by a zero) . 
UB is word aligned. 



String 
source 
is th 
is the 
The le 
compar 
than 
occurs 
contai 
to the 



Assign . 

string poi 
e destinat 

declared 1 
ngth of the 
ed , and if 

the desti 
Otherwi 
ning valid 

destinatio 



(ETOS-1) 
nter , and 
ion strin 
ength of 

source a 
the sourc 
nation , 
se all 
informati 
n string. 



,(ET0S-2) 

(ETOS-3) , 
g pointer. 

the dest 
nd destina 
e string i 
a run-tim 
bytes of 
on are tra 



is the 
(ETOS-4) 

(ETOS) 
ination . 
tion are 
s longer 
e error 

source 
nsferred 



Load Character. (ETOS) ,( ETOS-1 ) is a string 
pointer. (ETOS) is checked to insure that 
it lies within the dynamic length of the 
string. If so, the character pointed to by 
(ETOS) , (ETOS-1 ) is pushed; otherwise, a 
run-time error occurs. 



STCH 



28 



Store Character. (ETOS) is a character and 
(ETOS-1) , (ETOS-2) is a string pointer. 
(ETOS-1) is checked to insure that it lies 
within the dynamic length of the string. If 
so, the character (ETOS) is stored in the 
string, at the position pointed to by 
(ETOS-1) , (ETOS-2) ; otherwise, a run-time 
error occurs. 
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4. A. 5 Record and Array Indexing and Assignment 



MOVB 



UB 



MOVW 



SIND0-7 



169 Move Words/Byte Counter. (ETOS) is a word 
pointer to a block of UB words, and (ETOS-1) 
is a word pointer to a similar block. The 
block pointed to by (ETOS) is transferred to 
the block pointed to by (ETOS-1). 

170 Move Words/Word Counter. Same as MOVB 
except (ETOS-1) is the source pointer, 
(ETOS-2) is the destination pointer, and 
(ETOS) is the number of words to be 
transferred . 

173-180 Short Index and Load Word. SINDx indexes 
the word pointer (ETOS) by x words, and 
pushes the word pointed to by the result on 
ESTACK. (Note: SINDO is synonymous to 
LDIND). 



INDB UB 



171 Static Index and Load Word/Byte Index. 
Indexes the word pointer (ETOS) by UB words, 
and pushes the word pointed to by the result 
on ESTACK. 



INDW W 
INCB UB 



172 
232 



Static Index and Load Word/Word Index. Same 
as INDB except a full word index is used. 

Increment Field Pointer/Byte Index. The 
word pointer (ETOS) is indexed by UB words 
and the resultant pointer is pushed on 
ESTACK. 



INCW 



W 



233 Increment Field Pointer/Word Index. Same as 
INCB except a full word index is used. 



Note: INCB and INCW are equivalent to add UB or W to (ETOS). 



IXAB 



UB 



IXAW 



221 Index Array/Byte Array Size. (ETOS) is an 
integer index, (ETOS-1) is a word pointer to 
the base of the array, and UB is the size 
(in words) of an array element. A word 
pointer to the first word of the indexed 
element is pushed on ESTACK. 

222 Index Array/Word Array Size. Same as IXAB 
except (ETOS-1) is the integer index, 
(ETOS-2) is the word pointer to the base of 
the array, and (ETOS) is the size (in words) 
of an array element. (GenIA) full word is 
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used for 



une array ej.emenu size. 



IXA1..4 



IXP 



223-226 Index Array/Short Array Size. Same as IXAB 
except array element sizes are fixed at 1-4, 



UB 



214 



LDP 



STP 



ROTSHI UB 



26 



27 



20 



Index Packed Array. (ETOS) is an integer 
index, and (ETOS-1) is a word pointer the 
base of the array. Bits 4-7 of UB contain 
the number of elements per word minus 1 , and 
bits 0-3 contain the field width (in bits) 
minus 1. Compute and push a packed field 
pointer . 



Load a Packed 
described by 
(ETOS), (ETOS-1) 



Field. Push the field 
the packed field pointer 
on ESTACK. 



Store into Packed Field, 
the field described by 
pointer (ETOS-1 ), (ETOS-2) . 



Store (ETOS) in 
the packed field 



Rotate/Shift. (ETOS-1) is the argument to 
be rotated or shifted, and (ETOS) is the 
distance to rotate or "shift. If UB is 
then a right rotate occurs, and if UB is 1 
then a shift occurs. The direction of the 
shift is determined from (ETOS); If (ETOS) 
>r then a left shift occurs; otherwise, a 
right shift. (ETOS) must be in the range 
from -15 to +15. 
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4.B Top of Stack Arithmetic and Comparisons 
4.B. 1 Logical 



LAND 

LOR 

LNOT 

EQUBOOL 
NEQBOOL 
LEQ300L 
LESBOOL 
GEQBOOL 
GTRBOOL 



30 
31 
32 

33 
34 

35 
36 
37 
38 



Logical Add. AND (ETOS) into (ETOS-1). 

Logical Or. OR (ETOS) into (ETOS-1). 

Logical Not. Take one's complement 
(ETOS) . 



Boolean =, 



<>, 



<=, 



<, 



>=, 



of 



and > comparisons. 
Compare (ETOS-1) to (ETOS) and push true or 
false on ESTACK. 
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4.B.2 Integer 

ART 71 



ADI 
NGI 

SB I 

MPI 



DVI 



MODI 



CHK 



EQUI 
NEQI 
LEQI 
LESI 
GEQI 
GTRI 



72 
73 

74 

75 



76 



77 



78 



39 
40 
41 
42 
43 
44 



Absolute Value of Integer, Take absolute 
value of (ETOS). Result is undefined if 
(ETOS) is initially -32768. 

Add Integers. Add (ETOS) and (ETOS-1). 



Negate Integer 
(ETOS) . 



Take the twos complement of 



Subtract Integers. 
(ETOS-1) . 



Subtract (ETOS) from 



Multiply Integers. Multiply (ETOS) and 
(ETOS-1). This instruction may cause 
overflow if the result is larger than 16 
bits . 

Divide Integers. Divide (ETOS-1) by (ETOS) 
and push quotient (as defined by Jensen and 
Wirth) . 

Modulo Integers. Divide (ETOS-1) by (ETOS) 
and push the remainder (as defined by Jensen 
and Wirth) . 

Check Against Subrange Bounds. Insure that 
(ETOS-1) <= (ETOS-2) <= (ETOS), leaving 
(ETOS-2) on top of the stack. If conditions 
are not met a run-time error occurs. 



Integer =, 



<>, 



<=, 



<, 



>=, 



and > comparisons. 
Compare (ETOS-1) to (ETOS) and push true or 
false on ESTACK. 
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4.B.3 Real Operations 

ROPS UB 250 Real Operations. Arithmetic operations on 

floating point (32 bit) values. In general, 
(ETOS) is the low-order word and (ETOS-1) is 
the high-order word of the value. When two 
floating point values are involved, (ETOS-2) 
is the low-order word of the second real and 
(ETOS-3) is the high-order word. 

All over/underflows cause a run-time error. 
Division by zero (0) also causes a run-time 
error. 

UB determines the operation according to the 
following table: 

- The real (ETOS) ,( ETOS-1 ) is truncated (as defined by 

Jensen and Wirth) , converted to an integer, and pushed 
onto EStack. 

1 - The integer (ETOS) is converted to a floating-point 

number and pushed onto EStack. 

2 - Add (ETOS) , (ETOS-1) and (ETOS-2) ,( ET0S-3) . 

3 - Negate the real (ETOS) , (ETOS-1 ) . 

4 - Subtract (ETOS) ,( ETOS-1 ) from ( ETOS-2) ,( ET0S-3) . 

5 - Multiply (ETOS) , (ETOS-1) and (ETOS-2) , (ET0S-3) - 

6 - Divide ( ETOS) ,( ETOS-1 ) by ( ETOS-2) , ( ET0S-3) . 

7 - The real (ETOS) , (ETOS-1 ) is rounded (as defined by 

Jensen and Wirth) , truncated and converted to an 
integer, and pushed onto EStack. 

8 - Take the absolute value of the real (ETOS) ,( ETOS-1 ) . 

9 - = of two real values. (ETOS) = true or false. 

10 - <> of two real values. 

11 - <= of two real values. 
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12 - < of two real values* 

13 - >= of two real values 

14 - > of two real values. 
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4.B.4 Sets 
ADJ UB 



185 



SGS 



66 



SRS 



68 



INN 



88 



UNI 



89 



INT 



90 



DIF 



91 



EQUPOWR 
NEQPOWR 



63 
64 



Adjust Set. The set on the top of the 
MSTACK is forced to occupy UB words, either 
by expansion or compression, and its length 
word is popped from ESTACK. 

Build Singleton Set. The integer (ETOS) is 
checked to insure that <= (ETOS) <= 4,095, 
the set [(ETOS)] is pushed on MSTACK, and 
the size of the set is pushed on ESTACK. If 
(ETOS) is out of range, the null set is 
pushed (a" zero is pushed on ESTACK, the 
MSTACK is not altered). 

Build SubRange Set* The integers (ETOS) and 
(ETOS-1) are checked as in SGS, the set 
[(ETOS-1) ..(ETOS)] is pushed onto MSTACK, 
and the size of the set is pushed on ESTACK. 
(The null set is pushed if (ETOS-1) > (ETOS) 
or either is out of range) . 

Set Membership. See if integer (ETOS) is in 
set contained on the top of MSTACK, and with 
length (ETOS-1), pushing TRUE or FALSE on 
ESTACK. 

Set Union. The union of the two sets 
contained on the top of MSTACK (with sizes 
(ETOS) and (ETOS-1 )) is pushed on MSTACK, 
and the length of the result on ESTACK. 

Set Intersection. The intersection of the 
two sets contained on the top of MSTACK 
(with sizes (ETOS) and (ETOS-1)) is pushed 
on MSTACK, and the length of the result on 
ESTACK. 

Set Difference. The difference of the two 
sets contained on the top of MSTACK, and 
sizes (ETOS) and (ETOS-1) is pushed on 
MSTACK, and the length of the result on 

ESTACK. 



Set =, 



<>, 
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LEQPOWR 65 <= (subset of) , 

GEQPOWR 67 and >= (superset of) 

comparisons of the two sets on top of 
ESTACK, with sizes (ETOS) and (ETOS-1). 
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4.B.5 Strings 



EQUSTR 


51 


St 


ring =, 






NEQSTR 


52 






<>, 




LEQSTR 


53 








<=, 


LESSTR 


54 








<, 


GEQSTR 


55 








>=, 


GTRSTR 


56 











and > comparisons. 
The string pointed to by string pointer 
(ETOS-2) , (ETOS-3) is lexicographically 
compared to the string pointed to by string 
pointer (ETOS) , (ETOS-1 ) . 
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4.B.6 Byte Arrays 



FHIIRYT 
«-■ *< ~ *~ * ■* 


UB 


57 


Byte Array = 


* 


NEQBYT 


UB 


58 




<>, 


LEQBYT 


UB 


59 






LESBYT 
GEQBYT 


UB 
UB 


60 
61 






GTRBYT 


UB 


62 










>=, 



and > 

comparisons. <=, <, >= , and > are only 
emitted for packed arrays of characters. 
The argument, UB, if non-zero, is the size 
of the array. If UB is equal to 0, then 
(ETOS) is the size of the array. 
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4.B.7 Array and Record Comparisons 

EQUWORD UB 69 Word or multiword structure = 

NEQWORD UB 70 and <> 

comparisons. The argument, UB, if non-zero, 
is the size of the array. If UB equals 0, 
then (ETOS) is the size of the array. 
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4.B.8 Long Operations 

LOPS UB 252 Long Operations. Arithmetic operations on 

long (32 bit) values. In general, (ETOS) is 
the low-order word and (ET0S-1) is the 
high-order word of the value. When two long 
values are involved, (ETOS-2) is the 
low-order word of the second long and 
(ETOS-3) is the high-order word. UB 
determines the operation according to the 
following table: 

- Converts the long value (ETOS), (ETOS-1) to a single 

word. The high- order word must be or all 1's, as 
it is truncated. If not, a runtime error is 
generated. 

1 - Converts a single word (ETOS) into a long value. 

2 - Adds two long values. 

3 - Negates long value. 

4 - Subtracts two long values. 

5 - Multiplies two long values. 

6 - Divides two long values. 

7 - Mods two long values. 

8 - Absolute value of a long value. 

9 - = of two long values. (ETOS) = true or false. 

10 - <> of two long values. 

11 - <= of two long values. 

12 - < of two long values. 

13 - >= of two long values. 

14 - > of two Ions values. 
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4.C 
JMPB 

JMPW 



Jumps 
B 

W 



JFB 


B 


206 


JFW 


W 


207 


JTB 


B 


208 


JTW 


W 


209 


JEQB 


B 


210 


JEQW 


W 


211 


JNEB 


B 


212 



JNEW 



XJP 



W 



204 Unconditional Jump/Byte Offset. B is added 
to the IPC. Negative values of B cause 
backward jumps. 

205 Unconditional Jump/Word Offset. W is added 
to the IPC. Negative values of W cause 
backward jumps. 

False Jump/Byte Offset. Jump (as in JMPB) 
if (ETOS). is false. 

False Jump/Word Offset. Jump (as in JMPW) 
if (ETOS) is false. 

True Jump/Byte Offset. Jump (as in JMPB) if 
(ETOS) is true. 

True Jump/Word Offset. Jump (as in JMPW) if 
(ETOS) is true. 

Equal Jump/Byte Offset. Jump (as in JMPB) 
if integer (ETOS) equals (ET0S-1). 

Equal Jump/Word Offset. Jump (as in JMPW) 
if integer (ETOS) equals (ET0S-1). 

Not Equal Jump/Byte Offset. Jump (as in 
JMPB) if integer (ETOS) is not equal to 
(ETOS-1). 

213 Not Equal Jump/Word Offset. Jump (as in 
JMPW) if integer (ETOS) is not equal to 
(ET0S-1). 



W1,W2,W3,<Case Table> 100 



Case Jump. W1 is word-aligned, and is the 
minimum index of the table. W2 is the 
maximum index. W3 is the offset to the code 
to be executed if the case specified has no 
entry in the case table. The case table is 
W2 - W1 + 1 words long and contains offsets 
to the code to be executed for each case. 

If (ETOS), the actual index, is not in the 
range W1 . .W2 then W3 is added to PC. 
Otherwise, (ETOS) - W1 is used as an index 
into the case table and the index entry is 
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added to PC 
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4.D Routine Calls and Returns 

Note: There can be at most 256 routines in a 

segment . 



CALL UB 



186 



CALLXB UB1,UB2 234 



CALLXW W,UB 235 



LVRD W,UB1,UB2 98 



CALLV 



187 



RETURN 



200 



Call Routine. Call routine UB, which is in 
the current segment. 



Call External Routin 
the internal segmen 
contains the routin 
called. First the IS 
correct SSN, and re 
is checked. If the s 
call proceeds; if n 
so that the call will 
segment fault occurs, 
guaranteed to succeed 
unable to resume exec 
SSN is resident. 



e/Byte Segme 
t number ( 
e numbered 
N is transla 
sidency of t 
egment is re 
ot , the PC i 
be re-execu 
The second 
, since the 
ution until 



nt. UB1 is 
ISN) which 

UB2 to be 
ted to the 
hat segment 
sident, the 
s backed up 
ted , and a 

attempt is 
process is 
the segment 



Call External Routine/Word Segment. Same as 
CALLXB except the internal segment number 
(ISN) is given in a full word. 



Load Variable 
Q-Code pushes 
on the EStack 
ISN W, at lex 
values (which 
descriptor) a 
Segment Numbe 
Pointer, repr 
(ETOS-2) = Rou 
Static Link 
actually perfo 



Routine 
a Variable 
for the rou 
ical level 
comprise a 
re pushed : 
r (SSN); 
esented as 
tine Number 
(determined 
rmed to the 



Descript 

Routine 

tine UB1 

UB2. Th 

var iab 

(ETOS) 

(ET0S-1) 

an offs 

; and 

as if 
routine 



or. This 

Descriptor 

in segment 

e following 

le routine 

= System 

= Global 

et from SB; 

(ET0S-3) = 
a call were 
here) . 



Call Variable Routine. The ESTACK elements 

(ETOS) (ETOS-3) are a variable routine 

descriptor (as described above in LVRD). 
Residency of the segment are checked. If 
the segment is resident, the call is made as 
will CALL, except the GP and SL are taken 
from the variable routine descriptor; if 
not, a segment fault occurs as with CALLX. 

Return from Routine. Return from the 
current routine. If the routine was a 
function, the function value is left on the 
top of the MStack. Since the first word of 

a code segment is not code, but an offset to 



- 50 - 



PERQ QCode Reference Manual 



04 Feb 82 



the routine dictionary, if the RA which is 
being returned to is 0, the return is 
performed to the exit code of that routine. 
(This proves useful for the EXIT and EXGO 
Q-Codes described below) . 



EXIT W,UB 92 



EXGO W1,UB,W2 29 



Exit from Routine. Exit from all routines 
up to and including the most recent 
invocation of the routine UB in ISN W. This 
is accomplished by setting the RAs in all 
the ACBs to 0, from the most recent through 
and including the first ACB which was 
created from an invocation the routine to be 
exited, and jumping to the exit code of the 
curreat routine - . 

Exit and Goto. Exit from all routines up 
to, but not including, routine UB in ISN W1 , 
and then jump to the instruction with offset 
W2 from CB. The implementation is similar 
to EXIT, except the last RA modified is 
loaded with W2. 



ENABLE W,UB1,UB2 242 



RAISE W1,UB,W2 243 



Enable Exception Handler. W and UB1 are the 
internal segment and routine numbers, 
respectively, of the exception being 
enabled. UB2 is the routine number of the 
handler. A new exception enable record is 
pushed (quad word aligned) onto the MStack 
and linked into the routined current 
exception list . 

Raise Exception. W1 and UB1 are the 
internal segment and routine numbers, 
respectively, of the exception to be raised. 
W2 is the number of words of parameters that 
have already been pushed onto the memory 
stack. The exception is raised. 
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4.E Systems Programs Support Procedures 
BREAK 254 



N00P 
REPL 
REPL2 

MMS 
MES 

MMS2 



93 
94 

95 

96 
97 

201 



MES2 



202 



RASTER-OP 



102 



Breakpoint QCode. Causes a Qcode level 
breakpoint to the microcode kernel (KRNL). 

No-Operation. 

Replicate. Replicate (ETOS). 

Replicate Two. Replicate two top-of-estack 
words (i.e., first push original (ETOS-1), 
then push original (ETOS)). 

Move to Memory Stack. Push (ETOS) onto MTOS 
( 16-bit transfer) . 

Move to Expression Stack. Push (MTOS) onto 
ETOS (16-bit transfer - top 4 bits are 
zeroed) . 

Move Double to Memory Stack. Transfer the 
top two words from the EStack to the MStack. 
The order is reversed; old (ETOS) ' is 
(MTOS-1), (ETOS-1) is (MTOS). 

Move Double to Expression Stack. Transfer 
the top two words from the MStack to the 
EStack. THe order is reversed; old (MTOS) 
is (ETOS-1), (MTOS-1) is (ETOS). 



Rast 


erOp. RasterOp 


is a special QCode which 


is 


used to manip 


ulate blocks of memory of 


arbitrary sizes. I 


t is especially useful 


for 


creating and 


modifying displays on the 


screen. RasterOp 


modifies a rectangular 


area 


(called the "d 


estination") of arbitrary 


size 


(to the bit) . 


The picture drawn into 


this 


rectangle is 


computed as a function of 


the 


previous conten 


ts of the destination and 


the 


contents of 


another rectangle of the 


same 


size called 


the "source". The 


func 


tions performed to combine the two 


pictures are descri 


bed below. 



RasterOp can be used on memory other 
than that used for the screen bitmap. There 
are two parameters that specify the areas of 
memory to be used for the source and 
destination: a pointer to the start of the 
memory block and the length (in words) of 
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scanlines in the 


block . 


A 


scanline is 


one 


of the elements 


that 


cross 


the block. 


On 


the screen, for example, 


a 


scanline is 


one 


of the horizonta 


1 lines 


wj 


.th 


a length o 


>f 48 


words. Within these reg 


ions , 


the positions 


of the source and 


destination 


rectangles 


are 


given as offsets 


from 


the pointer. 


Thus 


position (0,0) 


would 


be 


at 


the upper 


left 


corner of the reg 


ion , an 


d, 


for the screen, 


(767, 1023) would 


be the 


lower right. 





The EStack must be arranged 
following order for RASTER-OP: 



in the 



(ETOS-10) Function 

(ETOS-9) Width 

(ET0S-8) Height 

(ET0S-7) Destination-X-Position 

(ET0S-6) Destination-Y-Position 

( ET0S-5) Des tin at ion- Are a- Line-Length 

(ET0S-4) Destination -Memory- Pointer 

(ETOS-3) Source-X-Position 

(ETOS-2) Source-Y-Position 

(ETOS-1 ) Source-Area-Line-Length 

(ETOS) Source-Memory-Pointer 



The 
below: 



yalues on the stack are defined 



"Function" defines how the source and 
the destination are to be combined to create 
the final picture stored at the destination. 
The RasterOp functions are as follows (Src 
represents the source and Dst the 
destination) : 



Function 



Name 



Action 



RRpl Dst gets Src 

RNot Dst gets NOT Src 

RAnd Dst gets Dst AND Src 

RAndNot Dst gets Dst AND NOT Src 

ROr Dst gets Dst OR Src 

ROrNot Dst gets Dst OR NOT Src 

RXor Dst gets Dst XOR Src 

RXNor Dst gets Dst XNOR Src 



CO 
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"Width" specifies the size in the 
horizontal ("x") direction of the source and 
destination rectangles (given in bits). 

"Height" specifies the size in the 

vertical ("y") direction of the source and 

destination rectangles (given in scan 
lines) . 

"Destination-X-Position" is the bit 
offset of the left side of the destination 
rectangle. The value is offset from 
Destination-Memory-Pointer (see below). 

"Destination-Y-Position" is the scan- 
line offset of the top of the destination 
rectangle. The value is offset from 
Destination-Memory-Pointer (see below). 

"Destination-Area-Line-Length" is the 
number of words which comprise a line in the 
destination region (hence defining the 
region's width). The appropriate value to 
use when operating on the screen is 48. The 
specified value must be a multiple of four 
(4) and within the range 4 through 48. 

"Destination-Memory-Pointer" is the 
virtual address of the top left corner of 
the destination region. This pointer MUST 
be quad-word aligned, however. 

"Source-X-Position" is the bit offset 
of the left side of the source rectangle. 
The value is offset from Source-Memory- 
Pointer (see below). 

"Source-Y-Position" is the scan-line 
offset of the top of the source rectangle. 
The value is offset from Source-Memory- 
Pointer (see below). 

"Source-Area-Line-Length" is the number 
of words which comprise a line in the source 
region (hence defining the region's width). 
The appropriate value to use when operating 
on the screen is 48. The specified value 
must be a multiple of four (4) and within 
the range 4 through 48. 
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"Source-Memory-Pointer" is the virtual 
address of the top left corner of the source 

cgiun . 111J.0 pOiuucr nuji u e qudQ-wuiu 

aligned, however. 



LINE 



241 



STARTIO 

INTOFF 

INTON 

EXCH 

EXCH2 

TLATE1 



103 
105 
106 
230 
231 

227 



TLATE2 



TLATE3 



228 



229 



Line 


Drawing. (ETOS) is a 


point 


origin (relative 0,0) of 


the 


ar 


the 1 


ine is drawn. (ET0S- 


•4) 


an 


are 


the x and y coordinat 


;es < 


:.re 


of th 


e first endpoint of the line 


and 


(ETOS-1) are the x 


and 


y 


(resp 


ectively) of the second 


en 


the 1 


ine. (ETOS-5) is the 


style 


where 


.a value of 1 means erase 


th 


means 


to xor the line 


and 


an 


means 


to draw the line . 







er to the 
ea on which 
d (ETOS-3) 
spectively) 
. (ETOS-2) 
coordinates 
dpoints on 
of the line 
e line, 2 
ything else 



(ETOS) is the channel on which to start 10. 

Disable interrupts. 

Enable interrupts. 

Exchange. (ETOS) and (ET0S-1) are swapped. 

Exchange Double. The pair (ETOS) and 
(ET0S-1) are swapped with the pair (ETOS-2) 
and (ET0S-3). 



Translate 
a virtua 
(ET0S-1) 
address 
and execu 
may be) , 
If the se 
restore 
backup th 
perform a 



Top of Stac 
1 address, 
is resident, 
to an offs 
te the next 

with out in 
gment SSN (E 
the EStack 
e PC to re-e 

segment fau 



k. (ETOS) ,(ET0S-1) is 
If the segment SSN 
convert the virtual 

et from stack base (SB) 

Q-Code (what ever it 

terrupts, to competion . 

T0S-1) is non-resident, 
to its previous state, 

xecute the TLATE1 and 

It. 



Translate Top of Stack - 1. Same as TLATE1 
except the virtual address is at 
(ET0S-1) , (ETOS-2) . 

Translate Top of Stack - 2. Same as TLATE1 
except the virtual address is at 
(ETOS-2) , (ET0S-3) • 
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STLATE UB 



240 



LSSN 

LDTP 
LDAP 



99 

203 
244 



ATPB 


SB 


188 


ATPW 




189 


WCS 




190 



JCS 



191 



Special Translate 
similar to the prev 
except that it ca 
than TLATE3, and th 
translation of 2 
half of UB is inter 
the System Segme 
virtual address to 
any stack alter 
indicates no tran 
specified in the 
before any translat 
segment fault occur 
of UB are non-zero 
(bits 0-3) must be 
nibble (bits 4-7) . 



This 
ious. tran 
n specify 
at it ma 

virtual a 
pretted as 
nt Number 
be transla 
ation) . 
slation . 

STLATE m 
ions occur 
s. Note, 
then the 1 

less than 



translate is 
slate Q-Codes, 
a greater depth 
y specify the 
ddresses. Each 

the depth of 

word of the 

ted (prior to 

A depth of 

All segments 
ust be resident 
; otherwise a 
if both nibbles 
ow-order nibble 

the high-order 



Load Stack Segment Number. Pushes the 
system segment number of the MStack onto 
EStack. 

Load Top Pointer (plus 1). Pushes the value 
of Top Pointer (TP) plus 1 onto EStack. 

Load Activation Pointer. The current 
activation pointer (as an offset from the 
base of the stack) is pushed onto the 
EStack. 

Add to Top Pointer/Byte Value. Adds SB to 
TP. 

Add to Top Pointer/Word Value. Adds (ETOS) 
to TP. 

Write Control Store. A control store word 
is written from information on the EStack-. 
(ETOS) is the address (with bytes exchanged) 
in the control store to which the word will 
be written. (ETOS-1) is the value to be 
written into the high-order third, (ETOS-2) 
is the value to be written into the middle 
third and (ET0S-3) is to be written into the 
low-order third. 

Jump to a Location in the Control Store. 
Control is transferred to the control store 
address (with bytes exchanged) given in 
(ETOS). A routine called with JCS should 
exit with a Nextlnst(O) jump. 
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REFILLGP 255 Refill the OpFile. This instruction causes 

execution to proceed from the beginning of 

INCDDS 251 Increment Diagnostic Display. The value of 

the diagnostic display is incremented and 
the contents of the EStack is checked. If 
the EStack is not empty, a runtime error is 
generated . 
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version of that system. 
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This document is not to be reproduced in any form or 
transmitted in whole or in part, without the prior written 
authorization of Three Rivers Computer Corporation. 

The information in this document is subject to change 
without notice and should not be construed as a commitment 
by Three Rivers Computer Corporation. The Company assumes 
no responsibility for any errors that may appear in this 
document . 

Three Rivers Computer Corporation will make every effort to 
keep customers apprised of all documentation changes as 
quickly as possible. The Reader's Comments card is distrib- 
uted with this document to request users' critical evalu- 
ation to assist us in preparing future documentation. 



PERQ is a trademark of Three Rivers Computer Corporation. 
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The Scope of This Manual 

This is a "how to" manual. If you follow the instructions of 
this manual, barring errors in the manual and bugs in your 
modifications to the system, you should be successful in making a 
new system. The instructions in this manual are not guaranteed to 
show you the most efficient way of making your changes. It only 
shows you a reliable way of making the changes. 

This manual doesn't attempt to explain why the system is 
organized the way it is nor why each step is required. If your 
changes are not too major, this manual will help you to create a new 
system. It does not explain how to "change low-level interface 
(e.g., interface to the Stream module) or low-level data structures 
(e.g., the segment tables or the structures on disk). 



Recommendations 

We make several recommendations to help you avoid errors that 

will make your system non-bootable. Remember, if you can no longer 

boot your PERQ, you can always boot from the "PERQ System Boot 

Floppy". Therefore, you always have a way of bringing up your PERQ. 

1. Back up important files on floppy disks before you begin changing 
the PERQ Operating System. While it is improbable that you will 
destroy any files by changing the system, the importance of 
backup files cannot be stressed too much. 

2. Maintain at least one partition of the disk that runs the old 
system. This enables you to boot your PERQ in the event that 
your new system contains bugs. When you receive your PERQ, the 
hard disk is divided into several partitions. At least one 
partition contains a pair of boot files: System ,<n> .<x> .Boot and 
System. <n>. <x> .MBoot. The <n> in the file name is the current 
system version number , and the <x> in the file name represents 
the character that you hold down to use the corresponding boot 
files and partitions. The .Boot file contains the Operating 
System, and the .MBoot file contains the QCode interpreter 
microcode. 

3- Do not change System .<n> .a .Boot and System ,<n> .a .MBoot until your 
new system is completely debugged. These are the default boot 
files. If you do not change these files, you can boot the old 
system in the case that your new system contains errors. 

4. Create a new directory or select an unused partition for your new 
experimental files when you begin making your changes to the 
system. Copy the sources of the files you want to change into 
this area before you begin editing. Compile all new . Seg files 
into this area. Do-not use the root directory in the default 
partition: the one that is entered by the default boot letter 
("a" is default — the same as not holding down a key). The 
default boot files are System. <n> .a . Boot and System. <n> .a .MBoot . 
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If you do not change the default boot files or the files in the 
root directory of the default partition, you will still have 
source and binary files that you can fall back on. 



Overview 

Creating a new system usually consists of the following steps. 

1. Evaluate the change you intend to make 

2. Create a directory to work in 

3. Edit and compile system modules 
i\. Edit and compile system programs 

5. Link the system and system programs 

6. Prepare the system configuration file 

7. Write a boot file 

8. Test the new system 

9. Iterate at step 3 



E valuate the Change You Intend to Make 

Before you begin, you should determine how extensive the 
changes are. The following criteria tell you how much you need to 
change . 



1 



Are you changing the existing exports of any system 
modules? If not, you need only re-compile those modules 
that you change. If so, you may need to re-compile those 
modules and programs that import the ones you are chang- 
ing. 



Are you adding exports but not changing an 
exist? If you don't change existing expo 
re-compile only those modules that you cha 
however, add your new exports at the e 
list. By adding at the end of the export 
change the storage allocation of existing 
routine numbers of existing procedures and 
you change either of these, you must 
modules and programs that import the ones 
ing. 



y that already 
rts, you need to 
nge. You must, 
nd of the export 
list, you do not 
variables or the 
functions. If 
re-compile all 
you are chang- 



3. Are you changing the definition of data structures which 
are known by the microcode (e.g., memory manager tables) 
or data structures that live across boots (e.g., struc- 
tures on disk)? If so, you may need to do a complicated 
bootstrapping operation to bring up your new system. This 
is beyond the scope of this manual . 
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4. Are you changing the existing exports of modules that the 
compiler knows about (Code, Dynamic, and Stream). If so, 
you again need to do a complicated bootstrapping opera- 
tion. This too, is beyond the scope of this manual. 

5. Are you changing the format of . Seg files? If so, you 
need to do a complicated bootstrapping operation which is 
beyond the scope of this manual. 



Create a_ Directory, Edit , and Compile 

Create a new directory for your experimental files. You do 
this with the MakeDir utility program. This new directory should be 
in the partition which contains the old system (probably the Boot 
partition) . Copy sources of the system modules and programs into 
this directory. You may choose instead to work in a partition 
which, up until now, has not been used. Using a new partition is 
somewhat safer than merely creating a new directory in some old 
partition . 

Edit the modules and programs that you need to change. 
Re-compile those modules and programs that you have changed and any 
others indicated by your evaluation of your changes. 



Link the New System 

Once all necessary changes and compilations have been done, you 
should link the new system and system programs. Choo-se a new system 
version number. Three Rivers Computer Corporation intends to use 
the version numbers between 1 and 99 for releases of the official 
PERQ Operating System. You should avoid these numbers to prevent 
conflicts with future Three Rivers Computers releases. For exam- 
ple, you should choose version number 100 for your new system. 

The new run files for System, Login, Shell, and Link should be 
in the root directory of the partition which contains your new 
system. You should use the following link commands to link your new 
system (assuming that the partition name is Part): 

Link SystemSystem. 100/System 
Link LoginLogin . 100 
Link ShellShell.100 
Link LinkLink.100 



How to Make a New System 08 Feb 82 

Prepare the System Configuration File 

Before you write the boot file, you must create a system 
configuration file which describes the swappability of segments in 
the system. You probably can just copy the configuration file for 
the current version of the operating system. The default configura- 
tion file is named System. <n> .Config . If you need to change the 
swappability of segments in the system, you can copy the old file 
and edit it. Each line in the file describes the swappability of a 
single segment in the form: 

<segment name) <swappability> 

The <swappability> is chosen from the following: 

SW - segment is swappable. 

LS - segment is swappable but the memory manager should be 

reluctant to swap it out (this is not implemented yet) . 
US - segment is not swappable but may be moved in memory. 
UM - segment is neither swappable nor movable. 

Names with asterisks are recognized as special segment names. They 
are chosen from the following list: 

*SAT* - Segment address table (default UM) 
*SIT* - Segment information table (default US) 
*Cursor* - Display cursor (default UM) 
*Screen* - Display screen (default UM) 
*Font* - Character set (default US) 
*Stack* - Run-time stack (default US) 
*Names* - System segment names (default SW) 
*I0* - Input/output tables (default UM) 

The default for code segments (modules) is US. We strongly suggest 
that you do not change the swappability of the special segments and, 
unless you are sure you know what you are doing, do not change the 
swappability of existing system modules. System data segments that 
the hardware or microcode uses cannot be moved, most data used by 
the operating system cannot be swapped, and the code that makes up 
the swapping system itself cannot be swapped. Since the default for 
code segments is US, you should add entries to the configuration 
file if you add modules to the system. 

The default system configuration file is: 

*SAT* UM 
*SIT* US 
*Cursor* UM 
* Screen* UM 
*Font* US 
*I0* UM 
System SW 
Stream SW 
Writer SW 
IOErrMessages SW 
Loader SW 
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Reader SW 
Perq_String SW 
Screen SW 
FileSystem SW 
Get Time St amp SW 
FileDefs SW 
Memory SW 
I0_Init SW 
RunRead SW 
•FileDir SW 
Scrounge SW 



Write a_ New Boot File 

You are now ready to write a boot file using the MakeBoot 
program. Before you run MakeBoot, choose a boot-letter for this new 
system; use one not already in use. You can run the Details program 
to find out which letters are in use. After choosing a boot letter, 
run MakeBoot and answer the questions in the following way: 

— — underxined text is what the PERQ types 

— Commentary is given inside { } 

— <CR> means type the RETURN key without entering any text 

— In this example, assume you have chosen the boot letter "z" 

j_MakeBoot 

Root file name: System. 100 

Configuration file name [System . 100. Config] : <CR> 

Which character to boot from? z 

Do you want to write the boot area [No]: <CR> 

{ The boot area of the disk contains a microprogram which runs 
diagnostics and reads the .Boot and .MBoot files. You need, to 
rewrite this only if you are making modifications to Vfy. Micro 
or SysB. Micro. } 

Write a system boot file [Yes]: <CR> 

Enter name of new system boot file [System . 100. z .Boot] : <CR> 
Existing boot file to copy (type return to build a new one): <CR> 
Enter name of character set [Fix13.Kst]: <CR> 

.{ This writes the boot file containing the Pascal part of the 
system and special system segments such as the segment tables, 
the cursor, and the character set. Note that you may specify a 
character set which is different than the standard (Fix13.Kst). 
If you use a non-standard character set, some programs (like 
the Editor) may not work well. } 



_ r _ 



How to Make a New System 08 Feb 82 

Write an interpreter boot file [Yes]: <CR> 

Enter name of new'micro boot file [System . 100. z .MBoot] : <CR> 

Existing boot file to copy (type return to build a" new one): <CR> 

Use standard interpreter microcode files? [Yes] : <CR> 

Interpreter microcode file: ETHER 10 

Interpreter microcode$file : <CR> 

{ This writes the boot file containing the microcode which is the 
Q-machine interpreter. Unless you are changing the interpreter 
microcode, you need only write this part once for a given boot 
letter. Note that you may add other microcode files to the 
boot file (as long as they do not overlap the standard 
microcode) . } 



Test the New System 

You are now ready to boot your new system and test it. Hold 
down the boot key you selected ("z" in the example) and press the 
Boot button. If all goes well, your new system will announce 
itself. Note that when you try to run most programs, the loader 
informs you that they were linked under the old system. This means 
you must re-link them for your new system. It is a good ide*a to 
create another new directory to hold these run files. By putting 
the new run files in a directory by themselves, these run files will 
not get in your way when you are running the old system. If you 
want, you can make a Login profile to add this directory to your 
search list when you log in under your new system. 

Once you are running the new system, you need to link the 
system utility programs. Set your path to the new directory that 
you created to contain the run files. Push the directory containing 
the old .Seg files onto your search list, and then push the 
directory containing the new .Seg files. Now, type: 

Link ProgramName 

for each utility program you wish to link. 

Re-compile any programs that, import modules whose exports have 
changed . 

If your system doesn*t come up at all, you can look at the 
diagnostic display to determine where in system initialization the 
system hangs. 
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Rewrite Other Boot Files 

Once your new system is debugged and working, you can use 
MakeBoot to rewrite the boot files associated with other boot 
letters. Before you rewrite the old boot files, you must be sure 
that some partition contains all files that make up the new system. 
This includes files that you have not changed. If you fail to make 
a partition containing all source, binary, and run files, you run 
the risk of deleting portions of your new system when you delete the 
old system. 
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This document is not to be reproduced in any form or 
transmitted in whole or in part, without the prior written 
authorization of "Three Rivers Computer Corporation. 

The information in this document is subject to change 
without notice and should not be construed as a commitment 
by Three Rivers Computer Corporation. The Company assumes 
no responsibility for any errors that may appear in this 
document . 

Three Rivers Computer Corporation will make every effort to 
keep customers apprised of all documentation changes as 
quickly as possible. The Reader's Comments card is distrib- 
uted with this document to request users' critical evalu- 
ation to assist us in preparing future documentation. 



PERQ is a trademark of Three Rivers Computer Corporation. 
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Perq. Files - PERQ Files Information 
Perq. Files is a list of the files distributed with the Three 

Rl VPr<? fnmnnf.or fnrnnraf inn p!TT?n 



luui uu cru 



in this list, but please note that they are included with 

the PERQ only if a source license is purchased. The User 

Library programs are also listed, but must be ordered from 
Trust - The Three Rivers Users' Society. 

Copyright (C) 1981, 1982 

Three Rivers Computer Corporation 

720 Gross Street 

Pittsburgh, PA 15224 

(412) 621-6250 



>0S. SYSTEM. SOURCE - OPERATING SYSTEM SYSTEM SOURCES 



file name 



version file name on floppy 
short description. 



ACB.DFS 

ALIGNMEMORY.PAS 

ARITH.PAS 

CODE. PAS 

CONTROLSTORE.PAS 
DYNAMIC. PAS 
EEB.DFS 

EXCEPT. PAS 



1.1 ACB.DFS 

Activation control block definitions — common 

to microcode and Pascal . 

1.1 ALIGNM.PAS 

Allocate buffers on multiples of 256 word 
boundaries . 

2.2 ARITH.PAS 

Double precision arithmetic for the disk 
system . 

1.6 CODE. PAS 

Run file and seg file definitions. 

1.2 C0NTR0.P-AS 

Load controlstore and jump to controlstore . 

1.4 DYNAMI.PAS 

Dynamic allocation routines - New and Dispose 

1.0 EEB.DFS 

Exception Enable Block definitions — common to 

Pascal and microcode . 

2.9 EXCEPT. PAS 
The exceptions module. 
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EXCEPT. DFS 

GETTIMESTAMP.PAS 
LIGHTS. PAS 
LOADER. PAS 
MEMORY. PAS 
MOVEMEM.PAS 
PASLONG.PAS 
PASREAL.PAS 
PERQ_STRING.PAS 
RD.DFS 

READER. PAS 
REALFUNCTIONS.PAS 
RUNREAD.PAS 
RUNWRITE.PAS 
SCROUNGE. PAS 
STREAM. PAS 
SYSTEM. PAS 



1.4 EXCEPT. DFS 

Definitions of the exceptions — common to 

microcode and Pascal. 

1.4 GETTIM.PAS 

Get time and date as TimeStamp. 

1.2 LIGHTS'. PAS 

Definitions of the lights. 

2.6 LOADER. PAS 

Perq Q-Code loader. 

2.13 MEMORY. PAS 

Memory manager . 

1.6a MOVEME.PAS 

Memory manager utility to move segments = 

0.0 PASLON.PAS 

Handles double-precision integers. 

0.1 PASREA.PAS . 
Real numbers. 

2.4 PERQST.PAS 

String manipulation package. 

1.1 RD.DFS 

Routine dictionary definitions—common to 

microcode and Pascal. 

2.1 READER. PAS 

Stream package input conversion routines. 

1.0 REALFU.PAS 

Standard floating-point functions. 

1.1 RUNREA.PAS 
Procedures to read run files. 

1.1 RUNWRI.PAS 
Procedures to write run files. 

0.14 SCROUN.PAS 

The preliminary debugger. 

1.20 STREAM. PAS 

Stream package base routines - Get and Put 

2.4 SYSTEM. PAS 

Operating system main program. 
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SYSTEMDEFS.PAS 
VIRTUAL. PAS 
VRD.DFS 

WRITER. PAS 



1.2 SYSDEF.PAS ' 

Common system definitions. 

2.8 VIRTUA.PAS 
The Swapper . 

1.0 VRD.DFS 

Variable Routine Descriptor Definitions 

common to Pascal and microcode. 

2.2 WRITER. PAS 

Stream package output conversion routines 



>0S. SYSTEM. BINARY 
file name 



ARITH.SEG 

ALIGNMEMORY.SEG 

CONTROLSTORE . SEG 

CODE.SEG 

DYNAMIC. SEG 

EXCEPT. SEG 

GETTIMESTAMP.SEG 

LOADER. SEG 

MEMORY. SEG 

MOVEMEM.SEG 

PASREAL.SEG 

PASLONG.SEG 

PERQ_STRING.SEG 

READER. SEG 

REALFUNCTIONS.SEG 

RUNREAD.SEG 

RUNWRITE.SEG 

SCROUNGE. SEG 

STREAM. SEG 

:LINK 

SYSTEM. SEG 

VIRTUAL. SEG 

WRITER. SEG 



- OPERATING SYSTEM SYSTEM SEGMENT FILES 

version file name on floppy 
short description. 



2.2 
1 . 1 
1.2 
1.6 
1.4 

2.9 
1.4 

2.6 

2.13 
1.6a 



2.4 

2.1 

1.0 

1.1 

1.1 

0.14 

1.20 

2.4 
2.8 
2.2 



ARITH.SEG 
ALIGNM.SEG 
CONTRO.SEG 
CODE.SEG 
DYNAMI.SEG 
EXCEPT. SEG 
.GETTIM.SEG 
LOADER. SEG 
MEMORY. SEG 
MOVEME.SEG 
PASREA.SEG 
PASLON.SEG 
PERQST.SEG 
READER. SEG 
REALFU.SEG 
RUNREA.SEG 
RUNWRI.SEG 
SCROUN.SEG 
STREAM. SEG 

SYSTEM. 6=SYSTEM/ SYSTEM 
SYSTEM. SEG 
VIRTUA.SEG 
WRITER. SEG 



>OS. PROGRAMS. SOURCE - OPERATING SYSTEM PROGRAM SOURCES 



file name 
CLOCK. PAS 



version file name on floppy 
short description. 

1.6 CLOCK. PAS 

Get, set, convert time and date as TimeStamp 

or String. 
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CMDPARSE. PAS 
DOSWAP.PAS 

GPIB.PAS 

HELPER. PAS 
INITSHELL.PAS 
LINK. PAS 
LOGIN. PAS 
MULTIREAD. PAS 
POPCMDPARSE.PAS 
POPUP. PAS - 
POPUPCURS.PAS 
PROFILE. PAS 
QUICKSORT. PAS 
RANDOMNUMBERS.PAS 
RS232BAUD.PAS 

SHELL. PARAS 
SHELL. PAS 



3.6 CMDPAR.PAS 
Command parser. 

1.0 DOSWAP.PAS 

Module for handling the "swap" command for 
shell . 

1.3 GPIB.PAS 

Routines for dealing with the Perq IEEE-488 
bus . 

1.1 HELPER. PAS 

Module for presenting help menu. 

2.2 INITSH.PAS 

Does initialization for Shell. 

4.3 LINK. PAS 
Q-Code linker. 

2.0 LOGIN. PAS 
Login program. 

1.0 MULTIR.PAS 

Does a very fast multisector read of a file. 

1.8 POPCMD.PAS 

Popup window command parse. 

2.4 POPUP. PAS 

Provides a Pop Up Menu facility for POS. 

2.1 POPUPC.PAS 
Defines cursors for Pop Up. 

1.1 PROFILE. PAS 

Module for accessing the profile. 

1.2 QUICKS. PAS 

Sorts arrays, integers and strings. 

1.2 RANDOM. PAS 

High-quality random number generator. 

1.1 RS232B.PAS 

Set RS232 baud rate with optional enable 

input . 

SHELL. PAR 
Information necessary to generate SHELL/HELP 

3.4 SHELL. PAS 
Top-level command processor. 
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SHELLDEFS.PAS 



USERPASS.PAS 



UTILPROGRESS.PAS 



1.0 SHELLD.PAS 

Definition of SHELL. Data format. 

1.3 USERPA.PAS 

Lookup user name/password pairs. 

1.16 UTILPR.PAS 

Module for showing progress of utility 

programs . 



>0S. PROGRAMS. BINARY - OPERATING SYSTEM PROGRAMS BINARY FILES 



file name 



CLOCK. SEG 

CMDPARSE.SEG 
DOSWAP.SEG 
GPIB.SEG 
HELPER. SEG 
:LINK 
SHtLL.SEG 
INITSHELL.SEG 
:LINK 
LINK. SEG 
:LINK 
LOGIN. SEG 
PROFILE. SEG 
USERPASS.SEG 
MULTIREAD. SEG 
POPCMDPARSE.SEG 
POPUP. SEG 
POPUPCURS.SEG 
QUICKSORT. SEG 
RANDOMNUMBERS.SEG 
RS232BAUD.SEG 
SHELLDEFS.SEG 
UTILPROGRESS.SEG 



version file name on floppy- 
short description. 

1.6 CLOCK. SEG 
3.6 CMDPAR.SEG 

1.0 DOSWAP.SEG 

1.3 GPIB.SEG 

1.1 HELPER. SEG 
SHELL. 6=SHELL 

3.4 SHELL. SEG 

2.2 INITSH.SEG 
LINK.6=LINK 

4.3 LINK. SEG 

• LOGIN. 6 = L0GIN 

2.0 LOGIN. SEG 

1.1 PROFIL.SEG 

1.3 USERPA.SEG 

1.0 MULTIR.SEG 
1.8 POPCMD.SEG 

2.4 POPUP. SEG 

2.1 POPUPC.SEG 

1.2 QUICKS. SEG 
1.2 RANDOM. SEG 
1.1 RS232B.SEG 
1.0 SHELLD.SEG 
1.16 UTILPR.SEG 



>OS. 10. SOURCE 
file name 

ALLOCDISK.PAS 
DISKIO.PAS 



- INPUT/OUTPUT SYSTEM SOURCE MODULES 

version file name on floppy 
short description. 

2.8 ALLOCD.PAS 

Allocation of sectors from the disk free 

list . 

3.12 DISKIO.PAS 

Medium-level disk input/output routines. 



- 5 - 



Perq. Files - PERQ Files Information 



11 Feb 82 



ETHER10IO.PAS 

ETHERINTERRUPT.PAS 

FILEACCESS.PAS 

FILEDEFS.PAS 

FILEDIR.PAS 

FILESYSTEM.PAS 

FILETYPES.PAS 

FILEUTILS.PAS 

10. PAS 

IOERRORS.PAS 

IOERRMESSAGES.PAS 

IO_INIT.PAS 

IO_OTHERS.PAS 

IO_PRIVATE.PAS 
IO_UNIT.PAS 
PMATCH.PAS 
RASTER. PAS 



1.8 ETHER 1. PAS 
Ethernet 10 interface. 

1.1 ETHERI.PAS 

Interrupt service for 10 MBaud ethernet . 

1.7 FILEAC.PAS 

File system segment routines . 

1.6 FILEDE.PAS 

Definitions used by the File System. 

2.6 FILEDI.PAS 

File system directory routines. 

7.3 FILESY.PAS 

File system--high-level disk input/output 

routines . 

1.2 FILETY.PAS 

Definitions for the file type field. 

1.10 FILEUT.PAS- 

File utilities not needed by system. 

4.8 10. PAS 
Input/output manager. 

1.2 IOERRO.PAS 

Input/output error number constants. 

1.1 IOERRM.PAS 

Names for the Input/output errors. 

5.9 IOINIT.PAS 
Input/output manager initialization. 

5.7 IOOTHE.PAS 

Other Input/output manager procedures and 
functions . 

5.9 IOPRIV.PAS 

Interrupt procedures and private definitions 

6.2 IOUNIT.PAS 

The basic UnitIO procedures and functions. 

2.5 PMATCH.PAS 

Directory search with wild cards. 

RASTER. PAS 

Raster-op definitions. 
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READDISK.PAS 



SCREEN. PAS 



1.4 READDI.PAS 

Upper-level disk input/output routines 



3.12 



SCREEN. PAS 



Screen manager . 



>0S. 10. BINARY - OPERATING SYSTEM 10 BINARY FILES 



file name 



ALLOCDISK.SEG 

DISKIO.SEG 

ETHER10IO.SEG 

ETHERINTERRUPT.SEG 

FILEACCESS.SEG 

FILEDEFS.SEG 

FILEDIR.SEG 

FILESYSTEM.SEG 

FILEUTILS.SEG 

IO.SEG 

TQERRMESSAGES. SEG 

IO_INIT.SEG 

IO_OTHERS.SEG 

IO_PRIVATE.SEG 

IO_UNIT.SEG 

PMATCH.SEG 

READDISK.SEG 

SCREEN. SEG 



version file name on floppy 
short description. 



2.8 


ALLOCD.SEG 


3.12 


DISKIO.SEG 


1.8 


ETHER1.SEG 


1. 1 


ETHERI.SEG 


1.7 


FILEAC.SEG 


1.6 


FILEDE.SEG 


2.6 


FILEDI.SEG 


7.3 


FILESY.SEG 


1.10 


r ilEu i . btG 


4.8 


IO.SEG 


1.1 


XOERRM.SEG 


5-9 


IOINIT.SEG 


5.7 


IOOTHE.SEG 


5.9 


IOPRIV.SEG 


6.2 


IOUNIT.SEG 


2.5 


PMATCH.SEG 


1.4 


READDI.SEG 


3.12 


SCREEN. SEG 



>0S. MISCELLANEOUS - OPERATING SYSTEM SPECIAL FILES 
file name 



DEFAULT. PROFILE 



DELETE. CURSOR 



version file name on floppy 
short description. 

DEFAUL.PRO 
Default login profile. 

DELETE. CUR 
Cursor used when delete is busy 
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DIRTREE. CURSOR 
FIX13.KST 
SCAVENGER. ANIMATE 
SYSTEM. USERS 
SYSTEM. 6. CONFIG 



DIRTRE.CUR 
Cursor used by Dirtree program. 

FIX13.KST 
System character set file. 

SCAVEN.ANI 
File of cursors for scavenger. 

SYSTEM. USE 
Valid system users and passwords. 

SYSTEM. CON 
Description of swappability for use by 
MakeBoot . 



UTILPROGRESS. CURSOR - UTILPR.CUR 

Cursor used by Utilprogress . 



>OS.NOSOURCE. SOURCE - OPERATING SYSTEM NONSOURCE FILES 



file name 
ACB.DFS 

ALLOCDISK.PAS 

ARITH.PAS 

CLOCK. PAS 

CMDPARSE.PAS 
CODE. PAS 

CONTROLSTORE.PAS 
DISKIO.PAS 



version file name on floppy 
short description. 

1.1 ACB.DFS 

Activation control block definitions — common t<? 
microcode and Pascal . 

2.8 ALLOCD.PAS 

Allocation of sectors from the disk free 

list . 

2.2 ARITH.PAS 

Double precision arithmetic for the disk 
system . 

1.6 CLOCK. PAS 

Get, set, convert time and date as TimeStamp 

or String. 

3.6 CMDPAR.PAS 
Command parser. 

1.6 CODE. PAS 

Run file and seg file definitions. 

1.2 CONTRO.PAS 

Load controlstore and jump to controlstore . 

3.12 DISKIO.PAS 

Medium-level disk input/output routines. 
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DYNAMIC. PAS 
EEB.DFS 

ETHER10IO.PAS 
EXCEPT. PAS 
EXCEPT. DFS 

FILEACCESS.PAS 
FILEDEFS.PAS 
FILEDIR.PAS 
FILESYSTEM.PAS 

FILETYPES.PAS 
FILEUTILS.PAS 
GETTIMESTAMP.PAS 
GPIB.PAS 

10. PAS 

IOERRORS.PAS 

IOERRMESSAGES.PAS 



1.4 DYNAMI. PAS 

Dynamic allocation routines - New and Dispose 

1.0 EEB.DFS 

Exception Enable Block definitions — common to 
Pascal and microcode. 

1.8 ETHER 1. PAS 
Ethernet 10 interface. 

2.9 EXCEPT. PAS 
The exceptions module. 

1.4 EXCEPT. DFS 

Definitions of the exceptions — common to 

microcode and Pascal . 

1.7 FILEAC.PAS 

File system segment routines. 

1.6 FILEDE.PAS 

Definitions used by the File System. 

2.6 FILEDI.PAS 

File system directory routines. 

7.3 FILESY.PAS 

File system — high-level disk input/output 
routines. 

1.2 FILETY.PAS 

Definitions for the file type field. 

1.10 FILEUT.PAS 

File utilities not needed by system. 

1.4 GETTIM.PAS 

Get time and date as TimeStamp. 

1.3 • GPIB.PAS 

Routines for dealing with the Perq IEEE-488 
bus. 

4.8 10. PAS 
Input/output manager. 

1.2 IOERRO.PAS 

Input/output error number constants. 

1.1 IOERRM. PAS 

Names for the Input/output errors. 
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IO_INIT.PAS 
IO_OTHERS.PAS 

IO_PRIVATE.PAS 

IO_UNIT.PAS 

LIGHTS. PAS 

LOADER. PAS 

MEMORY. PAS 

MOVEMEM.PAS 

MULTIREAD. PAS 

PASLONG.PAS 

PASREAL.PAS 

PERQ_STRING.PAS 

PMATCH.PAS 

POPCMDPARSE.PAS 

POPUP. PAS 

POPUPCURS.PAS 

PROFILE. PAS 



5.9 IOINIT.PAS 

Input/output manager initialization. 

5.7 IOOTHE.PAS 

Other Input/output manager procedures and 
functions . 

5.9 IOPRIV.PAS 

Interrupt procedures and private definitions 

6.2 IOUNIT.PAS 

The basic UnitIO procedures and functions. 

1.2 LIGHTS. PAS 
Definitions of the lights. 

2.6 LOADER. PAS 
Perq Q-Code loader, 

2.13 MEMORY. PAS 
Memory manager . 

1.6a MOVEME.PAS 

Memory manager utility to move segments. 

1.0 MULTIR.PAS 

Does a very fast multisector read of a file. 

0.0 PASLON.PAS 

Handles double-precision integers. 

0.1 PASREA.PAS 
Real numbers. 

2.4 PERQST.PAS 

String manipulation package. 

2.5 ■ PMATCH.PAS 

Directory search with wild cards. 

1.8 POPCMD.PAS 

Popup window command parse. 

2.4 POPUP. PAS 

Provides a Pop Up Menu facility for POS. 

2.1 POPUPC.PAS 
Defines cursors for Pop Up. 

1.1 PROFILE. PAS 

Module for accessing the profile. 
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RANDOMNUMBERS.PAS 
RASTER. PAS 
RD.DFS 

READDISK.PAS 
READER. PAS 
REALFUNCTIONS.PAS 
RS232BAUD.PAS 
RUNREAD.PAS 
RUNWRITE.PAS 
SCREEN. PAS 
SCROUNGE. PAS 
STREAM. PAS 
SYSTEM. PAS 
SYSTEMDEFS.PAS 
USERPASS.PAS 
UTILPROGRESS.PAS 

VIRTUAL. PAS 



1.2 RANDOM. PAS 

High-quality random number generator. 

RASTER. PAS 

adooci — sjp u c l J-u x u iuu o . 

1.1 RD.DFS 

Routine dictionary definitions — common to 

microcode and Pascal. 

1.4 READDI.PAS 

Upper-level disk input/output routines. 

2.1 READER. PAS 

Stream package input conversion routines. 

1.0 REALFU.PAS 

Standard floating-point functions. 

1.1 RS232B.PAS 

Set RS232 baud rate with optional enable input 

1.1 RUNREA.PAS 
Procedures to read run files. 

1.1 RUNWRI.PAS 
Procedures to write run files. 

3.12 SCREEN. PAS 
Screen manager. 

0.14 SCROUN.PAS 

The preliminary debugger. 

1.20 STREAM. PAS 

Stream package base routines - Get and Put. 

2.4 SYSTEM. PAS 

Operating system main program. 

1.2 SYSDEF.PAS 
Common system definitions. 

1.3 USERPA.PAS 

Lookup user name/password pairs. 

1.16 UTILPR.PAS 

Module for showing progress of utility 

programs . 

2.8 VIRTUA.PAS 
The Swapper . 
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VRD.DFS 



WRITER. PAS 



1.0 VRD.DFS 

Variable Routine Descriptor Definitions 

common to Pascal and microcode. 

2.2 WRITER. PAS 

Stream package output conversion routines 



>CANON. SOURCE 
file name 

CANON. PAS 

CAN. PAS 

CANP.PAS 

CANON. MICRO 

CANONBLOCK.PAS 

CANONUTILS.PAS 
INFILE.PAS 

CBT.PAS 



- CANON PRINTER SOURCE FILES 

version file name on floppy 
short description. 

1.0 CANON. PAS 

Main PASCAL interface to CANON LBP-10 laser 

printer . 

1.0 CAN. PAS 

CANON laser printer, fixed width font 

document print program. 

1.0 CANP.PAS 

CANON laser printer, proportional spaced 

font document print program. 

1.0 CANON. MIC 

Microcode support required for, and loaded 

by CANON. PAS. 

1.0 CANONB.PAS 

PASCAL module to support memory bit image 

dump to CANON LBP-10. 

1.0 CANONU.PAS 

General utility routines for CANON. 

1.0 INFILE.PAS 

High -speed disk buffer reading support for 

CANON modules . 

1.0 CBT.PAS 

Test program for CANONBLOCK. 
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>CANON. BINARY 
file name 



- CANON PRINTER BINARY FILES 

version file name on floppy 
short description. 



CAN40.KST 




— 


CAN40.KST 


CAN40P.KST 




— 


CAN40P.KST 


CANON. SEG 




1.0 


CANON. SEG 


CAN.SEG 




1.0 


CAN.SEG 


CANP.SEG 




1.0 


CANP.SEG 


CANON.BIN 




1.0 


CANON.BIN 


CANONBLOCK. 


SEG 


1.0 


CANONB.SEG 


CANONUTILS. 


SEG 


1.0 


CANONU.SEG 


INFILE.SEG 




1.0 


INFILE.SEG 


CBT.SEG 




1.0 


CBT.SEG 



>UTILITY. OTHERS. SOURCE - UTILITIES SOURCES 
file name 



BYE. PAS 

DETAILS. PAS 

EDITOR. PAS 
EDITORI.PAS 
EDITORU.PAS 
EDITORK.PAS 
EDITORT.PAS 
EDITORK. PARAS 

EXPANDTABS.PAS 

FINDSTRING.PAS 



version file name on floppy 
short description. 

2.2 BYE. PAS 
Logoff. 

1.11 DETAIL. PAS 

Print system status information. 

2.0 EDIT. PAS 
Editor main program. 

2.0 EDITI.PAS 

Editor initialization module. 

2.0 EDITU.PAS 
Editor utilities module. 

2.0 EDITK.PAS 

Editor key-selection module. 

2.0 EDITT.PAS 

Editor termination mod-ule. 

2.0 EDITK.PAR 

Souce to generate .HELP files for EDITOR. 

1.0 EXPAND. PAS 

Copy a text file and expand tabs to 8 
character columns. 

2.1 FINDST.PAS 

Searches files in directory for specified 
string. 
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GOODBY. MICRO 
HELPGEN.PAS 

MAKEBOOT.PAS 
PATCH. PAS 
PERQ. FILES. PAS 
SETTIME.PAS 
USERCONTROL.PAS 



1.0 GOODBY. MIC 
Power down microcode. 

0.0 HELPGE.PAS 

Process .PARAS files to make help files 

for use by Helper . 

4.4 MAKEBO. PAS 

Make SYSTEM. nn .BOOT files. 

1.7 PATCH. PAS 

Program to peek and poke into files. 

1.3 PERQFI.PAS 

Program to gobble this file.. 

2.0 SETTIM.PAS 

Sets the system date and time. 

1.3 USERCO.PAS 

Add/delete users from the password file 
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>UTILITY. OTHERS. BINARY - UTILITY OTHER BINARY FILES 



file name 


version file name on floppy 




short < 


description . 


:LINK 


2.2 


BYE 


BYE.SEG 


— 


BYE.SEG 


GOODBY.BIN 


— 


GOODBY.BIN 


.break :LINK 




1.11 DETAILS 


DETAILS. SEG 


- 


DETAIL. SEG 


:LINK 


2.0 


EDITOR 


EDITOR. SEG 


— 


EDIT. SEG 


EDITORI.SEG 


— 


EDITI.SEG 


EDITORK.SEG 


— 


EDITK.SEG 


EDITORU.SEG 


_ 


EDITU.SEG 


EDITORT.SEG 


— 


EDITT.SEG 


:LINK 


1.0 


EXPANDTABS 


EXPANDTABS.SEG 


— 


EXPAND. SEG 


:LINK 






FINDSTRING.SEG 


2.1 


FINDST.SEG 


HELPGEN.SEG 


0.0 


HELPGE.SEG 


:LINK 


4.4 


MAKEBOOT 


MAKEBOOT.SEG 


- 


MAKEBO.SEG 


:LINK 


1 .4 


PATCH 


PATCH. SEG 


- 


PATCH. SEG 


:LINK 


1.3 


PERQ. FILES 


PERQ. FILES. SEG 


— 


PERQFI.SEG 


:LINK 






SETTIME.SEG 


2.0 


SETTIM.SEG 


:LINK 


1.3 


USERCONTROL 


USERCONTROL.SEG 


- 


USERCO.SEG 
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>UTILITY. DEVICE. SOURCE - UTILITIES DEVICES 
file name 



CHATTER. PAS 
FLOPPYCOPY.PAS 
FLOPPY. PAS 
FLOPPYDEFS.PAS 
FLOPPYUTILS.PAS 
FLOPPYFORMAT". PAS 

FTPUTILS.PAS 
FTPUSER.PAS 
FTP. PAS 
PRINT. PAS 



version file name on floppy 
short description. 

0.6 CHATTE.PAS 

RS232 dumb terminal program. 

2.2 FLPCOP.PAS 

Floppydup part of floppy (formerly COPYFLOPPY) . 

3.2 FLOPPY. PAS 

Main program for general floppy utility. 

0.0 FLPDEF.PAS 
Global defs for floppy. 

0.1 FLPUTI.PAS 

Utility routines for floppy. 

0.1 FLPFOR.PAS 

Diskette format routines for floppy (formerly 

module FORMAT) . 

4.2 FTPUTILS.PAS 

Utilities for file transfer module. 

4.3 FTPUSE.PAS 
Implements all the commands. 

4.3 FTP. PAS 

File transfer program. 

2.13 PRINT. PAS 

Print a text file on an HP 7310A printer or 

through the TNW GPIB to RS232 converter. 



FLOPPYTRANSFERS.PAS 0.1 FLPTRA.PAS 

Utility routines for floppy 
(formerly RT 1 1 and RT11Utils). 



SETBAUD.PAS 



0.0 SETBAU.PAS 

Program to set RS232 Baud rate. 
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>UTILITY. DEVICE. BINARY - UTILITY DEVICE BINARY FILES 



file name 



version file name on -floppy 
short description. 



LINK 


0.6 


CHATTER 


CHATTER. SEG 


— 


CHATTE.SEG 


LINK 


3-2 


FLOPPY 


FLOPPY. SEG 


• 


FLOPPY. SEG 


FLOPPYDEFS.SEG 


— 


FLPDFS.SEG 


FLOPPYCOPY.SEG 


2.1 


FLPCOP.SEG 


FLOPPYUTILS.SEG 


0.1 


FLPUTI.SEG 


FLOPPYFORMAT.SEG 


0.1 


FLPFOR.SEG 


FLOPPYTRANSFERS.SEG 


0.1 


FLPTRA.SEG 


LINK 


4.3 


FTP. SEG 


FTP. SEG 


— 


FTP. SEG 


FTPUTILS.SEG 


4.2 


FTPUTI.SEG 


FTPUSER.SEG 


4.3 


FTPUSE.SEG 


:LINK 


2.13 


PRINT 


PRINT. SEG 


— 


PRINT. SEG 


LINK 


0.0 


SETBAUD 


SETBAUD.SEG 


- 


SETBAU.SEG 
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>UTILITY. FILE. SOURCE - FILE SYSTEM UTILITIES SOURCES 

file name version file name on floppy 

short description. 



APPEND. PAS 
COPY. PAS 
DELETE. PAS 
DIRECT. PAS 
DIRTREE.PAS 

FIXPART.PAS 

MAKEDIR.PAS 
PARTITION. PAS 
RENAME. PAS 
SCAVENGER. PAS 

DIRSCAVENGE.PAS 
SETSEARCH.PAS 
TYPEFILE.PAS 



3.1 APPEND. PAS 

Append a file to the end of another. 

5.3 COPY. PAS 

Copy a file to another. 

2.4 DELETE. PAS 
Delete a file or files. 

4.4 DIRECT. PAS 

Print a directory listing. 

3.2 DIRTRE.PAS 

Display the directory structure of a partition 
as a tree. 

0.5 FIXPAR.PAS 

Fix smashed partition or disk information 

blocks. 

2.2 MAKEDI.PAS 
Make directories. 

3.2 PARTIT.PAS 
Initialize partitions on disks. 

5.3 RENAME. PAS 
Change the name of a file. 

3.2 SCAVEN.PAS 

Analyze and reconstruct disks and directories. 

DIRSCA.PAS 
Reconstruct directories. 

Change search lists. 

4.2 TYPEFI.PAS 

Type file to the console. 
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>UTILITY. FILE. BINARY - UTILITY FILE SEG FILES 



file name 



version file name on floppy 
short description. 



LINK 


2.1 


APPEND 


APPEND. SEG 


_ 


APPEND. SEG 


LINK 


5.3 


COPY 


COPY. SEG 


— 


COPY. SEG 


LINK 


2.4 


DELETE 


DELETE. SEG 


— 


DELETE. SEG 


LINK 


4.4 


DIRECT 


DIRECT. SEG 


— 


DIRECT. SEG 


LINK 


2.1 


DIRTREE 


DIRTREE.SEG 


— 


DIRTRE.SEG 


LINK 


0.4 


FIXPART 


FIXPART.SEG 


— 


FIXPAR.SEG 


LINK 


1.3 


MAKEDIR 


MAKEDIR.SEG 


.. 


MAKEDI.SEG 


LINK 


3.1 


PARTITION 


PARTITION. SEG 


— 


PARTIT.SEG 


LINK 


5.3 


RENAME 






r» T -1 »i * \t r« n r-> /~> 


"* 


nermann . on,u 


LINK 


3.2 


SCAVENGER 


SCAVENGER. SEG 


— 


SCAVEN.SEG 


LINK 


1.2 


SETSEARCH 


SETSEARCH.SEG 


— 


SETSEA.SEG 


LINK 


4.2 


TYPEFILE 


TYPEFILE.SEG 


— 


TYPEFI.SEG 
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>MICROCODE. SOURCE - MICROCODE SOURCES 



file name 



version file name on floppy 
short description. 



PERQ. MICRO 
PERQ.DFS 



PERQ.QCODES.DFS 

PERQ.QC0DE.1 

PERQ.QC0DE.2 

PERQ.QC0DE.3 
PERQ. QCODE. 4 

PERQ.QC0DE.5 
PERQ.QC0DE.6 
PERQ.QC0DE.7 

PERQ. FLOAT. MUL 

PERQ. ROUTINE. 1 
PERQ. ROUTINE. 2 



2.-4 PERQ. MIC 

Perq Q-code interpreter microcode. 

1.4 PERQ.DFS 

Definitions of registers, constants, and 

entrypoints used by Perq. Micro and other 

microprograms. 

QCODES.DFS 
Definitions of QCode instruction names and 
numbers. 

QCODE. 1 
Opcode interpreter routines for Perq. Micro 
(part 1) . 

QCODE. 2 
Opcode interpreter routines for Perq. Micro 
(part 2) . 

QCODE. 3 
Opcode interpreter routines for Perq. Micro 
(part 3) . 

QCODE. 4 
Opcode interpreter routines for Perq. Micro 
(part 4) . 

QCODE. 5 
Opcode interpreter routines for Perq. Micro 
(part 5) . 

QCODE. 6 
Opcode interpreter routines for Perq. Micro 
(part 6) . 

QCODE. 7 
Opcode interpreter routines for Perq. Micro 
(part 7) . 

FLOAT. MUL 
Special multiply for floating point. 

R0UTIN.1 
Subroutines for Perq. Micro (part 1). 

R0UTIN.2 
Subroutines for Perq. Micro (part 2). 
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PERQ.INIT - PERQ. INI 

Initialization for Perq 4 Micro, 

RO.MICRO 0.6 RO.MIC 

Raster-op microcode. 

LINE. MICRO 1.1 LINE. MIC 

Line drawing microcode. 

10. MICRO 1.10 10. MIC 

Input/output microcode. 

IO.DFS 1.5 IO.DFS 

Definitions of registers, constants, and 
entrypoints used by 10. Micro and other 
microprograms. 

I0E3. MICRO 1.2 I0E3.MIC 

Microcode to drive the 3MBaud Ether Met. 

VFY, MICRO 1.8 VFY.MIC 

Verify that the hardware seems to work. 

SYSB. MICRO 2.5 SYSB.MIC 

System boot microcode. 

BOOT. MICRO 4.0 BOOT. MIC 

Boot-prom microcode. 

KRNL. MICRO 1.2 KRNL.MIC 

Perq microcode kernel. 

LINK. MICRO 1.2 LINK. MIC 

16-bit parallel interface microcode. 
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2.4 


PERQ.BIN 


1 . 10 


10. BIN 


1.8 


VFY.BIN 


2.5 


SYSB.BIN 


4.0 


BOOT. BIN 


1.2 


KRNL.BIN 


1.2 


LINK. BIN 
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MICROCODE. BINARY - MICROCODE BIN FILES 

file name version file name on floppy 

short description. 

PERQ.BIN 
10. BIN 
VFY.BIN 
SYSB.BIN 
BOOT. BIN 
KRNL.BIN 
LINK. BIN 



>MICR0C0DE. MORE. SOURCE - MICROCODE SOURCES 

file name version file name on floppy 

short description. 



ETHER10. MICRO 4.0 ETHER1.MIC 

10 MBaud ethernet microcode. 



>MICR0C0DE. MORE. BINARY - MICROCODE MORE BINARY FILES 

file name version file name on floppy 

short description. 



ETHER10. BINARY 4.0 ETHER1.BIN 
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>MICROCODE. SUPPORT. SOURCE - MICROCODE SUPPORT SOURCES 



file name 



version file name on floppy 
short description. 



MICROOPTION.PAS 

ODTPRQ.PAS 
ODTUTILS.PAS 
ODTDUMP.PAS 

PRQDIS.PAS 

PRQPL_SORT.PAS 

PRQPLACE.PAS 

PRQMIC.PAS 
PMEGEN.PAS 

PRQMIC. ERR. TEXT 



1.0 MICROO.PAS 

Option processor for PrqMic and PrqPlace. 

8.0 ODTPRQ.PAS 

Simple Perq to Perq microcode debugger. 

ODTUTI.PAS 
Utility routines for ODTPRQ. 

ODTDUM.PAS 
The ODTPRQ dump subsystem. 

1.2 PRQDIS.PAS 

Perq microcode disassembler. 

2.0 PRQPLS.PAS 

Sorting routines for PrqPlace. 

2.5 PRQPLA.PAS 
Perq microcode placer. 

2.8 PRQMIC.PAS 

Perq microcode assembler . 

PMEGEN.PAS 
Program to create PRQMIC. ERROR from 
PRQMIC. ERR. TEXT. 

PRQERR.TXT 
Source for PRQMIC. ERROR (error message text) 



- 23 - 



Perq. Files - PERQ Files Information 



11 Feb 82 



MICROCODE. SUPPORT. BINARY - MICROCODE SUPPORT SEG FILES 

file name version file name on floppy 

short description. 



MICROOPTION.SEG 


1. 


,0 


MICROO.SEG 


PRQPL SORT. SEG 


2. 


,0 


PRQPLS.SEG 


:LINK 


2. 


,8 


PRQMIC 


PRQMIC.SEG 


- 




PRQMIC.SEG 


PRQMIC. ERROR 


- 




PRQMIC. ERR 


:LINK 


2. 


.5 


PRQPLACE 


PRQPLACE.SEG 


— 




PRQPLA.SEG 


:LINK 


1 . 


.2 


PRQDIS 


PRQDIS.SEG 


- 




PRQDIS.SEG 


:LINK 


8. 


,0 


ODTPRQ 


ODTPRQ.SEG 


- 




ODTPRQ.SEG 


ODTUTILS.SEG 


— 




ODTUTI.SEG 


ODTDUMP.SEG 


- 




ODTDUM.SEG 


ODT13.KST 


- 




ODT13.KST 
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DOCUMENTATION 
file name 



- DOCUMENTATION 



version file name on floppy- 
short description . 



EDIT0R.DOC 
EDIT0RK.DOC 
EXAMPLES.DOC 
FAULT.DOC 
FILE. FORMAT 
FILES. DOC- 
MICRO. DOC 
MAKESYSTEM.DOC 

PASCAL.DOC 

PERQ_Z80.DOC 

QC0DE.DOC 

SEGMENT.DOC 

SETBAUD.DOC 



EDITOR.DOC 
Editor quick guide. 

2.0 EDITK.DOC 
Editor User's Guide. 

D.6 EXAMPL.DOC 
Programming examples. 

D.6 FAULT.DOC 

Fault dictionary for the diagnostic display. 

FILE. FOR 
Describe source file format for Perq software 

FILES.DOC 
File system user's manual. 

D.6 MICR0.DOC 
Microprogrammer ' s guide. 

MAKESY.DOC 
How to make a new version of the operating 
system . 

D.6 PASCAL.DOC 
Pascal extensions. 

PERQZ8.DOC 
Description of PERQ/Z80 protocol. 

D.6 QC0DE.DOC 
QCode reference manual. 

' SEGMEN.DOC 
Segment file format. 

SETBAU.DOC 
User Information for program to set RS232 
Baud rate. 
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DOCUMENTATION. MORE - MORE DOCUMENTATION 

file name version file name on floppy 

short description. 



UTILITIES.DOC D.6 UTILIT.DOC 

Utility programs manual. 

INTR0.DOC D.6 INTR0.DOC 

Intorduction to the PERQ operating system 

PERQ. FILES - PERQ.FIL 

This list . 

PERQ. FILES. LABELS - PERQFI.LAB 

Masters for labels on Perq. Files floppies 

POS.DOC - POS.DOC 

Operating system interface guide. 
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>TEST. SOURCE - TEST PROGRAM SOURCES 
file name 



version file name on floppy 
short description. 



CHARS. PAS 

CROSSHATCH. PAS 

DISPATCH. MICRO 
DTST. MICRO 
DUAL. MICRO 
HIGH. MICRO 

JUMP. MICRO 
KEYTEST.PAS 
LOOP. MICRO 

LOW. MICRO 

MEM. MICRO 
NEXTOP. MICRO 



NXTI. MICRO 



1.1 CHARS. PAS 
Screen magnifier. 

0.2 CROSSH.PAS 

Put Crosshatch or checkerboard on display 

screen . 

1.1 DISPAT.MIC 
Dispatch diagnostic. 

1.2 DTST. MIC 
Disk test microcode. 

1.0 DUAL. MIC 

Microstore dual address test. 

1.0 HIGH. MIC 

Test for stuck bits in the high bank of the 

microstore . 

1.0 JUMP. MIC 
Test microcode jumps. 

1.5 KEYTST.PAS 
Keyboard test program. 

0.0 LOOP. MIC 

Simple tests that repeat — allowing probing 

of boards . 

1.0 LOW. MIC 

Test for stuck bits in the low bank of the 

microstore . 

2.0 MEM.MIC 

Dual addressing test of the memory. 

1.1 NEXTOP. MIC 
NextOp diagnostic. 

Register diagnostic. 

1.1 NXTI. MIC 
Nextlnst diagnostic. 
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PART. MICRO 
PBT. MICRO 
PDM.PAS 
PDM2.PAS 
PDCOMMON.PAS 
PDMUTILS.PAS 
PDMLOAD.PAS 
PDM.MAS 
PDS.PAS 
PDM.KELP 
PDM. MICRO 
PDMVFY. MICRO 
RAT. MICRO 
REGT. MICRO 
SHIFT. MICRO 
STACK. MICRO 
TESTFLOPPY.PAS 
TST. MICRO 



1.1 PART. MIC 

Memory Parity diagnostic. 

1.1 PBT. MIC 

Pre-boot diagnostic. 

0.4 PDM.PAS 

Perq diagnostic monitor. 

PDM2.PAS 
PDM 2nd module. 

PDCOMM.PAS 
PDM/PDS common definitions. 

PDMUTI.PAS 
PDM utility routines. 

PDMLOD.PAS 
PDM Pascal program loader. 

PDM.MAS 
PDM master file for current diagnostics. 

PDS.PAS 
Perq diagnostic slave. 

PDM. HELP 
PDM help file. 

PDM. MIC 
Pseudo PDS microcode example. 

1.1 PDMVFY. MIC 
PDM version of VFY. 

1.3 RAT. MIC 

Source data suspicious raster-op test. 

1.1 REGT. MICRO 

Test of XY register file. 

1.0 SHIFT. MIC 

Test of the shift hardware. 

1.0 STACK. MIC 
20-bit, 16-level stack test. 

2.1 TSTFPY.PAS 

Test and format floppies .( formerly FLOPPY) 

1.1 TST. MIC 

Pre-Boot diagnostic. 
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>TEST. BINARY - TEST PROGRAM SEG, RUN, AND BIN FILES 



file name 



version file name on floppy- 
short description. 



:LINK 


1.1 


CHARS 


CHARS. SEG 


— 


CHARS.BIN 


:LINK 


0.2 


CROSSHATCH 


CROSSHATCH. SEG 


— 


CROSSH.SEG 


DISPATCH.BIN 


1.1 


DISPAT.BIN 


DTST.BIN 


1.2 


DTST.BIN 


DUAL. BIN 


1.0 


DUAL. BIN 


HIGH. BIN 


1.0 


HIGH. BIN 


JUMP. BIN 


1.0 


JUMP. BIN 


:LINK 


1.5 


KEYTEST 


KEYTEST.SEG 


— 


KEYTST.SEG 


LOOP. BIN 


0. 


LOOP. BIN 


LOW. BIN 


1.0 


LOW. BIN 


MEM. BIN 


2.0 


MEM. BIN 


NEXTOP.BIN 


1.1 


NEXTOP.BIN 


NXTI.BIN 


1.1 


NXTI.BIN 


PART. BIN 


1.1 


PART. BIN 


n D T DTK! 


A A 


i-i T) *r< i-> t \r 

r b i . d ± jh 


r u i • u ± 1* 


1 . 1 


RAT. BIN 


1.3 


RAT. BIN 


REGT.BIN 


1.1 


REGT.BIN 


SHIFT.BIN 


1.1 


SHIFT.BIN 


STACK.BIN 


1.0 


STACK.BIN 


TST.BIN 


1.1 


TST.BIN 


:LINK 


2.1 


TESTFLOPPY 


TESTFLOPPY.SEG 


— 


TSTFPY.SEG 
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>PASCAL. SOURCE - PASCAL COMPILER SOURCES 



file name 



version file name on floppy 
short description. 



PASCAL. PAS 

PASO. PAS 
PAS 1. PAS 
PAS2.PAS 
QCODES.DFS 

COMPINIT.PAS 

CODEGEN.PAS 

DECPART.PAS 

DECO.PAS 
DEC1.PAS 
DEC2.PAS 
BODYPART.PAS 

BODYO.PAS 
BODY1 .PAS 
B0DY2.PAS 
BODY3.PAS 



6.0 PASCAL. PAS 

Pascal compiler global definitions. 

PASO. PAS 

PAS1.PAS 

PAS2.PAS 

QCODES.DFS 
Q-Code const definitions. 

COMPIN.PAS 
Initialization . 

CODEGE.PAS 
Code generator . 

DECPAR.PAS 
Declaration processor. 

DECO.PAS 

DEC 1. PAS 

DEC2.PAS 

BODYPA.PAS . 
Procedure/function/program body processor 

BODYO.PAS 

B0DY1.PAS 

B0DY2.PAS 

B0DY3.PAS 
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>PASCAL. BINARY - PASCAL COMPILER SEG FILES 

file name version file name on floppy 

short description. 



:LINK 6.0 

PASCAL. SEG 

COMPINIT.SEG 

CODEGEN.SEG 

DECPART.SEG 

BODYPART.SEG 

EXPEXPR.SEG 

PASCAL. SYNTAX 

PASCAL. RESWORDS 

LEX. SEG 0.0 

FQCODES.SEG 1.Q 

FRESWORDS.SEG 1.0 
FSYNTAX.SEG 1.0 

:LINK 2.0 

QDIS.SEG 

QCODES 



PASCAL 

PASCAL. SEG 

COMPIN.SEG 

CODEGE.SEG 

DECPAR.SEG 

BODYPA.SEG 

EXPEXP.SEG 

PASCAL. SYN 

PASCAL. RES 

LEX. SEG 

FQGODE.SEG 

FRESWO.SEG 

FSYNTA.SEG 

QDIS 

QDIS.SEG 

QCODES 
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>PASCAL. MORE. SOURCE - MORE PASCAL COMPILER SOURCES 

file name version file name on floppy 

short description. 



EXPEXPR.PAS 

EXPRO.PAS 
EXPR1.PAS 
EXPR2.PAS 
EXPR3-PAS 
FSYNTAX.PAS 



SYNTAX.DAT 
QDIS.PAS 
FQCODES.PAS 

QCODES.DAT 
FRESWORDS.PAS 

RESWORDS.DAT 
LEX. PAS 



EXPEXP.PAS 
Expression expansion. 

EXPRO.PAS 

EXPR1.PAS 

EXPR2.PAS 

EXPR3.PAS 
1.0 FSYNTA.PAS 

Program to generate PASCAL .SYNTAX from 
SYNTAX.DAT. 

SYNTAX.DAT 
Error message data file. 

2.0 QDIS.PAS 

Q-Code disassembler. Also needs QCODES. PAS 

1.0 FQCODE.PAS 

Program to generate QCODES from QCODES.DAT. 

QCODES.DAT 
Q-Code name data file. 

1.0 FRESWO.PAS 

Program to generate QCODES from QCODES.DAT. 

RESW0R.DAT 
Q-Code name data file. 

0.0 LEX. PAS 

Lexical scanner for compiler. 
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KAL.PAS 
KINETIC. PAS 
LIFE. PAS 
LINE. PAS 
PETAL. PAS 

MULDIV.PAS 

SLEEP. PAS 
SCREENDUMP.PAS 

SEISMO.PAS 
SKETCH. PAS 



KAL.PAS 
Kaleidoscope display. 

KINETI.PAS 
Demonstrate random raster-ops. 

LIFE. PAS 
The game of life. 

LINE. PAS 
Line drawing- display. 

PETAL. PAS 
Cycloid drawing display. 

MULDIV.PAS 
Double precision multiply and divide for Petal 

SLEEP. PAS 
Sleep for a specified period of time. 

0.0 SCRDMP.PAS 

Print an image of the screen to an HP 7310A 

printer. 

SEISMO.PAS 
Multi-pen chart recorder display. 

SKETCH. PAS 
Sketch on the screen using the tablet. 
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>DEMO. BINARY - DEMONSTRATION PROGRAM SEG FILES 



file name 



version file name on floppy 
short description. 



:LINK 
KAL.SEG 
LINK 

KINETIC. SEG 
LINK 

LIFE. SEG 
LINK 

LINE. SEG 
LINK 

PETAL. SEG 
MULDIV.SEG 
SLEEP. SEG 
LINK 

SCREENDUMP.SEG 
LINK 

SEISMO.SEG 
:LINK 
SKETCH. SEG 



0.0 



KAL 

KAL.SEG 

KINETIC 

KINETI.SEG 

LIFE 

LIFE. SEG 

LINE 

LINE. SEG 

PETAL 

PETAL. SEG 

MULDIV.SEG 

SLEEP. SEG 

SCREENDUMP 

SCRDMP.SEG 

SEISMO 

SEISMO.SEG 

SKETCH 

SKETCH. SEG 
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>DEMQ. SIGGRAPH. SOURCE - SIGGRAPH 80 DEMONSTRATION SOURCES 



iiie name 



version file name on floppy 
short description. 



INITDEMO.PAS 

PETALDEMO.PAS 

LINEDEMO.PAS 

LIFEDEMO.PAS 

SEISDEMO.PAS 

GETSAVE.PAS 

CREATEWIN.PAS 
SLIDER. PAS 

JUST. PAS 
WIPEWIN.PAS 
SNOOZE. PAS 



INITD.PAS 
Initialize the demo. 

PETALD.PAS 
Cycloid drawing display. 

LINED. PAS 
Line drawing display. 

LIFED.PAS 
The game of "life . 

SEISD.PAS 
Multi-pen chart recorder display. 

GETSAV.PAS 
Get display from file to screen or save from 
screen to file . 

CREWIN.PAS 
Create entry in Screen package f s window table. 

SLIDER. PAS 

Slide a window from one position to another on 
the screen. 

JUST. PAS 
Justify text with various fonts in a window. 

WIPWIN.PAS 
Wipe a picture into a window. 

SNOOZE. PAS 
Pause for a specified period of time. 



Modules for SigGraph demo: MulDiv, Sleep, 
WindowLib, SigUtils, FontStuff. 



WINDOWLIB.PAS 



SIGUTILS. PAS 



FONTSTUFF. PAS 



WINLIB.PAS 
Window routine library. 

SIGUTI.PAS 
SigGraph 80 demo utilities. 

FONTST.PAS 
Load and unload fonts for Just. 
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>DEMO.SIGGRAPH. BINARY - SIGGRAPH 80 DEMONSTRATION BINARY FILES 



file name 



version file name on floppy 
short description. 



:LINK 

INITDEMO.SEG 
:LINK 

PETALDEMO.SEG 
:LINK 

LINEDEMO.SEG 
:LINK 

.LIFEDEMO.SEG 
:LINK 

SEISDEMO.SEG 
:LINK 

GETSAVE.SEG 
:LINK 

CREATEWIN.SEG 
:LINK 

SLIDER. SEG 
:LINK 

JUST. SEG 
:LINK 

WIPEWIN.SEG 
:LINK 

SNOOZE. SEG 
WINDOWLIB.SEG 
SIGUTILS.SEG 
FONTSTUFF.SEG 
FEATURES. SLIDE 
SOFTWARE. SLIDE 
NETWORK. SLIDE 
UCODE. SLIDE 
10. SLIDE 
3RCC. SLIDE 
JUST. DEMO 
GRAPH. PIC 
3RCC.PIC 
BLANK. PIC 
WASHDC.PIC 
NGR13-KST 
MET22.KST 
DEMO 
DEM01.CMD 



INITDEMO 

INITD.SEG 

PETALDEMO • 

PETALD.SEG 

LINEDEMO 

LINED. SEG 

LIFEDEMO 

LIFED.SEG 

SEISDEMO 

SEISD.SEG 

GETSAVE 

GETSAV.SEG 

CREATEWIN 

CREWIN.SEG 

SLIDER 

SLIDER. SEG 

JUST 

JUST. SEG 

WIPEWIN 

WIPWIN.SEG 

SNOOZE 

SNOOZE. SEG 

WINLIB.SEG 

SIGUTI.SEG 

FONTST.SEG 

FEATUR.SLI 

SOFTWA.SLI 

NETWOR.SLI 

UCODE. SLI 

IO.SLI 

3RCC.SLI 

JUST. DEM 

GRAPH. PIC 

3RCC.PIC 

BLANK. PIC 

WASHDC.PIC 

NGR13.KST 

MET22.KST 

DEMO 

DEM01.CMD 
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>PERQFILE.USERLIBRARY - USER LIBRARY SOURCES 

file name version file name on floppy 

short description. 



CURSDESIGN.PAS 

FONTED.PAS 
F0NT2ED.PAS 
FONTED. CURSOR 

DR. MEMORY. PAS 

TD.PAS 

TD1.PAS 

TD2.PAS 
MAZE. PAS 

GENMAZE.PAS 

MAZEPLAYER.PAS 



1.0 CURSDE.PAS 

Program used to design new cursors. 

FONTED.PAS 
Program used to create new fonts. 

FONT2E.PAS 
Part of Fonted . 

FONTED. CUR 
File of pictures needed by the font editor. 

DRMEMO.PAS 
Peek and poke into the memory manager 
tables . 

TD.PAS 
Demo of Grapics. 

TD1.PAS 
Part of TD. 

TD2.PAS 
Another part of TD. 

MAZE. PAS 
Draws a maze and runs a mouse through it. 

GENMAZ.PAS 
Creates a well-formed random maze. 

MAZEPL.PAS 
Used by Maze to allow user to try to 
get through the maze. 
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Display Description 

000 Boot never got going, StackReset doesn't work or other 
major problem in the processor board (or clock) . 

001 Simple Branches fail, 

002 Main Data Path Failure. 

003 Dual Address failure on Registers. 

004 Y Ram Failure. 

005 Const/Carry Propogate failure. 

006 ALU failure. 

007 Conditional Branch failure. 

008 Looping failure. 

009 Control Store (or Write Control Store) failure. 

010 Hung in Disk Boot. 

011 Memory Data Error. 

012 Memory Address Error. 

013 Disk never became ready. 

014 Couldn't boot from either disks. 

015 - 020 Bad Interrupts Reading Floppy Disk Data. 

030 VFY Hung. 

050 Bad Error Message from VFY. 

051 Empty stack bit not working. 

052 Could not load TOS. 

053 Push did not work. 

054 Stack Empty did not go off. 

055 Data error in push. 

056 Empty or Full set when that is not the case. 

057 Data error in bit 15 of the stack. 

058 Stack empty set when the stack is full. 

059 Data error on stack. 

060 Data error after POP. Bit 14. 

061 Data error after POP. Bit 13. 

062 Data error after POP. Bit 12. 

063 Data error after POP. Bit 11. 

064 Data error after POP. Bit 10. 

065 Data error after POP. Bit 9. 

066 Data error after POP. Bit 8. ' - 

067 Data error after POP. Bit 7. 

068 Data error after POP. Bit 6. 

069 Data error after POP. Bit 5. 

070 Data error after POP. Bit 4. 

071 Data error after POP. Bit 3. 

072 Data error after POP. Bit 2. 

073 Empty wrong . 

074 Data error after POP. Bit 1. 

075 Data error after POP. Bit 0. 

076 Empty not set after all pops. 

077 Call test falied . 

078 Odd didn't jump on a 1 . 

079 Odd .-jumped on a 0. 
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Display 

080 
081 
082 

083 
084 

085 
086 
087 
088 
089 

090 

091 
092 

093 
094 
095 
096 
097 
098 
099 

100 
101 
102 

103 
104 

105 
106 
107 
108 
109 

110 
111 
112 

113 
114 

115 
116 
117 
118 
119 

120 
121 
122 

123 
124 

125 
126 
127 
128 



Description 

Byte sign didn't jump on 200. 

Byte sign jumped on 0. 

CI 9 didn't jump when it should have 



BCP[3] didn't jump 


when it should ha 


CI 9 jumped when it 


shouldn' t have . 


BCPC3] jumped when 


it shouldn't have 


GTR didn't jump. 




GTR jumped when it 


shouldn't have. 


GEQ didn't jump. 




GEQ jumped when it 


shouldn't have. 


LSS didn't jump when it should have. 


LSS jumped when it 


shouldn't have. 


LEQ didn't jump. 




LEQ jumped when it 


shouldn't have. 


GEQ didn't jump on 


equal . 


LEQ didn't jump on 


equal . 



Carry didn't jump when it should have. 
Carry jumped when it shouldn't have. 
Overflow didn't jump when it should have. 
Overflow jumped when it shouldn't have. 

And-Not ALU function failed. 

Or ALU function failed. 

Or-Not .ALU function failed. 

And ALU function failed. 

Or-Not ALU function failed. 

Not-A ALU function failed. 

Not-B ALU function failed. 

Xor ALU function failed. 

Xnor ALU function failed. 

OldCarry-Add ALU function failed. 

OldCarry-Sub ALU function failed. 

OidCarry-Add /w No OldCarry failed. 

Fetch error on Force Bad Parity. 

Unexpected Parity error. 

No parity errors on force bad parity. 

Wrong address on force bad parity. 

Upper 4 bit test failed. 

MDX test failed. 

Stack upper bits test failed. 

Store/Fetch test failed. 

Unexpected refill. 
BPC test failed. 
Fetch4 test failed. 
Fetch4R test failed. 
Store4 test failed. 

test 

test 

test 



Fetch2 
Store2 
NextOp 



Fetch/Store 



failed . 
failed, 
failed . 
overlap 



failed. 
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Display Description 

129 Bad interrupt Loc 4. 

Bad interrupt Loc 14. 

Bad interrupt Loc 20. 

Bad interrupt Loc 30. 

Data error on memory sweep. 

Address error on memory sweep. 

Field didn't work. 

Dispatch did not jump. 

Wrong Dispatch target. 

Data error on inverted memory sweep. 

Address error on inverted memory sweep. 

Sysb not loaded correctly or hung. 

Sysb did not complete. 

Illegal Boot Key. 

Hard Disk Restore Failure. 

Mo such boot . 

No interpreter for that key. 

Interpreter file is empty. 

Disk Error . 

Floppy error . 

Malformed Boot File. 

Checksum error in microcode. 
Checksum error in QCode . 
168 Bad interrupts. 

QCode interpreter microcode not entered correctly. 
System not entered - calls or assignments don't work. 

System entered, InitMemory to be called. 

InitMemory entered. 

SAT and SIT pointers set. 

StackSegment number set. 

Reading the BootBlock. 

System version number set. 

Head of free-segment-number list set. 

First system segment number set. 

System boot disk set. 

System boot character set. 

Boot block read . 

Default heap segment number set. 

First used segment number set. 

Before setting freelists of data segments. 

Before trying to allocate a segment number. 

Temporary segment number allocated. 

Ready to enter loop to find memory size. 

Exited from memory size loop. 

Restored mangled word. 

220 Released temporary segment number. 



- ? - 



no 


131 


132 


133 


134 


135 


136 


137 


138 


139 


150 


151 


152 


153 


154 


155 


156 


157 


* r- n 


159 


160 


161 


162 


198 


199 


200 


201 


203 


204 


205 


206 


207 


208 


209 


210 


211 


-212 


213 


214 


215 


216 


217 


218 


219 
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Display Description 

221 Located segment adjacent to the I/O segment, 

222 Modified the location of I/O segment. 

223 Adjusted free memory. 

224 Freelists of data segments set. 

225 Set screen segment. 

226 Header buffer allocated for swapping. 

227 Status buffer allocated for swapping. 

228 SwappingAllowed set false. 

229 All boot-loaded segments set UnSwappable (if booted from 
floppy), InitMemory complete, ready to return to System. 

230 _ Starting to increase number of segments allowed (because 

memory is larger than -1/4 megabyte). 

231 Changed maximum of SITSeg . 

232 Changed size of SITSeg. 

233 Changed maximum of SATSeg . 

234 Changed size of SATSeg. 

235 Created new unallocated segment numbers. 

236 Finished InitMemory. 

300 Initio to be called. 

301 Initio entered. 

302 KeyEnable set false. 

303 Buffers allocated. 

310 InitlnterruptVectors to be called. 

320 InitlnterruptVectors complete, InitDeviceTable to be 

called . 

322 Starting to initialize ETHERNET. 

325 ETHERNET initialized. 

330 InitDeviceTable complete, InitScreen to be called. 

340 InitScreen complete, InitTablet to be called. 

350 InitTablet complete, InitCursor to be called. 

360 InitCursor complete. 

361 Interrupts are now off; about to send device table to 
microcode. 

363 Got control block for Z80 speech. 

364 Set up video registers. 

365 Screen is now started. 

366 Got control blocks for keyboard, RS232, and GPIB. 

368 Microcode returned. 

369 Interrupts are now turned on. 

370 Microcode informed that the device table has been 
initialized, 10 microcode initialization complete, 
LocateDskHeads to be called. 

371 LocateDskHeads entered, buffers allocated. 
373 Disk heads at cylinder or Bisk broken. 
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Display Description 

374 Disk heads at cylinder (not broken) . 

375 Microcode instructed to consider current position as 
cylinder 0. 

376 Dummy read of cylinder 0, sector complete, about to 
dispose buffers and exit LocateDskHeads . 

380 LocateDskHeads complete, FindSize to be called. 

381 FindSize entered and buffers allocated, 

382 Disk access attempt returned. 

383 Size of disk determined, about to dispose buffers and 
exit FindSize. 

390 FindSize complete. 

400 Keyboard enabled. 

410 InitGPIB to be called. 

411 InitGPIB entered, buffers allocated. 

412 First GPIB command built. 

413 First GPIB command sent to Z80. 

414 Second GPIB command built. 

Kir- o-^~^,-j n n t n ^ ^.^w. ^* A oan4- +- /-\ 7QO oKnnf +■ r\ Hi cnnco hnf for^ 

and exit InitGPIB. 
420 InitGPIB complete. 

499 Clock enabled, about to exit Initio. 

500 ' Initio complete, InitStream to be called. 

600 InitStream complete, FSInit to be called. 

700 FSInit complete. 

800 Command file and Console opened, InitExceptions to be 
called. 

810 InitExceptions complete. 

820 System version number set. 
822 Current 60 Hz. clock value read. 

824 60 Hz time reference set, TimeStamp time reference to be 
set. 

900 FSSetUpSystem to be called. 

950 FSSetUpSystem complete. 

951 About to enable swapping (if booted from hard disk). 

952 FSLocalLookup and EnableSwapping complete. 

999 System fully initialized, system title line to be 
printed. 
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Three 




SOFTWARE REPORT FORM 



SOF-I Orig. 5-81 




Reference # 
(Supplied by 
Submitter) 




V ^ / / / / 



PERQ Model # . 
PEKQ Serial #_ 
Memory Size _ 



Options: 
Floppy Network WCS 

ODD 



D'i2 

D48 



O.S. Version # 

Subsystem, Program, Module or Manual 

Name: 



REPORT TYPE 
□ Logic/Coding Error 

H Documentation Error (Page #_ 



£j Suggestion for Improved Efficiency 
Q Request for Software Modification 
[1 Inquiry 
Q For Your Information 



PRIORITY 

□ CRITICAL 

□ HIGH 

□ STANDARD 

n low 



Version # 



Program demonstrating problem 
attached: 

□ □ □ 
on floppy hard Not Avail, 

(preferred) copy Not Applic 



Can this problem be reproduced Q O 
at will? Yes No 



DESCRIPTION OF PROBLEM: 



CUSTOMER PERQ SERIAL NUMBER 

Packing 

What was the condition of the packing when you received your PERQ? Please 
be specific? 



Missing Materials 

What (if anything) was listed on the packing slip but not received? 



PERQ's Overall Condition 

Please describe any damage(s) to the PERQ system when received. Be specific 

BASE 



DISPLAY 



KEYBOARD 



TABLET (BIT PAD) 



OTHER 



Clarity of Installation Instructions 

Were you able to easily unpack and install the system? 



Please note below any suggestions or comments which you feel may be beneficial 
to us in better serving our customers. 



Please designate below a software and hardware person in your organization whom 
we can contact for information or problems. 



Name 



Company /Organization 



Title 



SOFTWARE C0NTAC1 



Telephone Number 



Address 



Address 



Name 



Company/Organization 



Title 



HARDWARE CONTACT 



Telephone Number 



Address 



Address 

Please comment on the documentation manual that you received with your PERQ. 
Did you find it understandable, usable, and well organized? Did you find any 
errors? If so, identify the page number and text. 



Prepared/Completed by: 



/ / 



Name 



Title 



Date 



THANK YOU - THREE RIVERS COMPUTER CORPORATION 
720 Gross Street 
Pittsburgh, PA 15224 
(412) 621-5250 



